Даны катеты прямоугольного треугольника. найти его гипотенузу. составить программу.

Var a,b:real; begin write('Введите катеты: '); read(a,b); writeln; write('Гипотенуза = ',sqrt(sqr(a)+sqr(b)):0:2); end.