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.
