var a, b:integer;

begin

write('Введите длину первого катета: ') ;

readln(a);

write('Введите длину второго катета: ') ;

readln(b);

write('Гипотенуза равна: ', sqrt(a*a+b*b))

end.