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

Вариант выполнения программы на Pascal program cyb7; var a, b, c: real; begin write(\'Введите длину первого катета:\'); readln(a); write(\'Введите длину второго катета\'); readln(b); c:= Sqrt(Sqr(a)+Sqr(b)); writeln(\'Гипотенуза треугольника = \', c); readln; end.