Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и площадь треугольника - Pascal ABC

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

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

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

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

var a,b,c,s:real;
begin
repeat
write('Введите длину катета a>0 a=');
readln(a);
until a>0;
repeat
write('Введите длину гипотенузы c>a c=');
readln(c);
until c>a;
b:=sqrt(c*c-a*a);
writeln('Длина второго катета=',b:0:1);
s:=a*b/2;
write('Площадь=',s:0:2);
end.

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

Создается переменная a типа real и инициализируется значением 0.
Создается переменная b типа real и инициализируется значением 0.
Создается переменная c типа real и инициализируется значением 0.
Создается переменная s типа real и инициализируется значением 0.
Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной a больше 0.
Внутри цикла пользователю предлагается ввести значение переменной a.
Значение переменной a считывается и сохраняется в переменной a.
Проверяется условие до тех пор, пока значение переменной c больше значения переменной a.
Внутри условия вычисляется значение переменной b с помощью формулы извлечения квадратного корня из суммы квадратов катетов треугольника. Значение переменной b считывается и сохраняется в переменной b.
Вычисляется значение переменной s как половина произведения значений переменных a и b. Значение переменной s считывается и сохраняется в переменной s.
Выводится значение переменной b.
Выводится значение переменной s.
Цикл repeat завершается.
Программа завершается.