program abc;uses crt;var a,b,c:real;beginwriteln('Vvedite 1 katet');readln(a);writeln('Vvedite 2 katet');readln(b);c:=sqrt((a*a)+(b*b));writeln('Gipotenuza=',c);end.
program abc;
uses crt;
var a,b,c:real;
begin
writeln('Vvedite 1 katet');
readln(a);
writeln('Vvedite 2 katet');
readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Gipotenuza=',c);
end.