Найти второй катет и радиус вписанной окружности прямоугольного треугольника - Pascal ABC

Формулировка задачи:

Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет, радиус вписанной окружности по формуле: где a и b — длины катетов, c — гипотенузы.

Решение задачи: «Найти второй катет и радиус вписанной окружности прямоугольного треугольника»

Листинг программы

var
a,b,c,r:real;
begin
write('Введите первый катет: ');
readln(a);
write('Введите гипотенузу: ');
readln(c);
b:=sqrt(c*c-a*a);
r:=(a+b-c)/2;
writeln('Второй катет: ',b);
writeln('Радиус вписанной окружности: ',r);
end.

Объяснение кода листинга программы

Создается переменная a типа real для хранения первого катета прямоугольного треугольника.
Создается переменная b типа real для хранения гипотенузы прямоугольного треугольника.
Создается переменная c типа real для хранения длины второго катета прямоугольного треугольника.
Вычисляется длина второго катета b с помощью формулы из задачи: b := sqrt(c*c - a*a).
Вычисляется радиус вписанной окружности r с помощью формулы из задачи: r := (a + b - c)/2.
Выводится значение переменной b как второй катет прямоугольного треугольника.
Выводится значение переменной r как радиус вписанной окружности прямоугольного треугольника.