Вычислить гипотенузу прямоугольного треугольника, если известны его катеты. В Паскале

Предыдущий
вопрос Следующий
вопрос

Приведу пример кода на Паскале, который вычисляет гипотенузу прямоугольного треугольника по известным катетам:

program HypotenuseCalculation;
var
a, b, c: real;
begin
writeln('Введите длину первого катета: ');
readln(a);
writeln('Введите длину второго катета: ');
readln(b);
c := sqrt(a*a + b*b);
writeln('Гипотенуза треугольника равна: ', c:0:2);
readln;
end.

Пользователю будет предложено ввести длины катетов, после чего программа вычислит гипотенузу и выведет ее на экран.