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

Вариант выполнения программы на 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.