Question

составить алгоритм нахождения диагонали прямоугольника если известны его стороны

Answer 1

var a,b,p:integer; d: real;
begin
readln(a,b);
p:=2*a+2*b;
d:=sqrt(sqr(a)+sqr(b));
writeln('периметр- ',p,' ' ,' диагональ- ',d)
end.

Answer 2

Периметр, конечно, не просили, а причину нарушение отмечать я не увидел.