Определить, у какого из двух прямоугольных треугольников площадь больше - PascalABC.NET

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

Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них площадь больше (создать функцию для вычисления площади прямоугольного треугольника по его катетам).

И с процедурой.

Решение задачи: «Определить, у какого из двух прямоугольных треугольников площадь больше»

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

/// Площадь треугольника по двум катетам
function S_triangle(a, b : Real) : Real := a * b / 2;
 
begin
  var a1 := ReadLnReal('катет 1 треугольника: a =');
  var b1 := ReadLnReal('катет 1 треугольника: b =');
  var a2 := ReadLnReal('катет 2 треугольника: a =');
  var b2 := ReadLnReal('катет 2 треугольника: b =');
  case Sign(S_triangle(a1, b1) - S_triangle(a2, b2)) of
    -1 : WriteLn('Площадь больше у второго треугольника.');
     0 : WriteLn('Площади треугольников равны.');
    +1 : WriteLn('Площадь больше у первого треугольника.');
  end;
end.

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

Входные данные: значения для катетов первого треугольника (a1, b1) и второго треугольника (a2, b2).
Функция S_triangle вычисляет площадь треугольника по двум катетам по формуле S = (a * b) / 2.
Значения для площади первого треугольника (S1) и второго треугольника (S2) вычисляются с помощью функции S_triangle.
С помощью оператора Sign сравнивается знак разности площадей треугольников (S1 - S2).
Если разность площадей отрицательна, то площадь больше у второго треугольника.
Если разность площадей равна нулю, то площади треугольников равны.
Если разность площадей положительна, то площадь больше у первого треугольника.
Результат выводится на экран с помощью функции WriteLn.