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

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