Составить   алгоритм   вычисления   периметра   прямоугольника   и   его  диагонали, если известны его стороны.

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.