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

Program abc;
Var a,b,c:real;
Begin
writeln('vvedite a,b');
Readln(a,b);
C:=sqrt(sqr(a)+sqr(b));
Writeln('c=',c);
End.