Составить процедуру вычисления площади прямоугольного треугольника - Pascal ABC

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

Добрый вечер программисты. Помогите с задачами на pascal ABC. У меня плохо идет pascal и прошу помочь знатоков. Вот две задачи: С клавиатуры вводятся гипотенуза и один из катетов для каждого из трёх прямоугольных треугольников. Вычислить площади этих треугольников и вывести на экран наибольшую площадь. С клавиатуры вводятся 3 стороны для каждого из трёх треугольников. Для каждого треугольника определить, является ли он прямоугольным, и если является, то вычислить его периметр. Заранее спасибо.

Решение задачи: «Составить процедуру вычисления площади прямоугольного треугольника»

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

procedure plosh(c,a:real;var s:real);
var b:real;
begin
b:=sqrt(c*c-a*a);
s:=a*b/2;
writeln('Площадь=',s:0:2);
end;
var i:byte;
    c,a,s:real;
begin
for i:=1 to 3 do
 begin
  repeat
  writeln('Введите гипотенузу и катет ',i,' треугольника');
  readln(c,a);
  until(a>0)and(c>a);
  plosh(c,a,s);
 end;
end.

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

В процедуре plosh объявлены три переменные: c, a и s. Переменная c является целочисленной, a также целочисленной, а переменная s является вещественной.
Внутри процедуры plosh вычисляется гипотенуза треугольника с помощью формулы b = sqrt(c * c - a * a), где b - это вещественное число, представляющее гипотенузу, c и a - это катеты треугольника.
Затем переменная s вычисляется как половина произведения гипотенузы и одного из катетов (a / b), что дает площадь треугольника.
Наконец, с помощью функции writeln выводится значение переменной s.
В основной части программы объявлена переменная i типа byte, которая используется для цикла.
В цикле от 1 до 3 выполняется следующий код:
- Пользователю предлагается ввести гипотенузу и катет треугольника.
- Проверяется, что введенные значения являются положительными числами.
- Вызывается процедура plosh с введенными значениями.
После завершения цикла программа завершается.