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

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