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

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

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