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

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

Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них площадь больше (создать ПРОЦЕДУРУ для вычисления площади прямоугольного треугольника по его катетам).

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

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

var
  a, b, a1, b1: real;
  outOf: array [Boolean] of String[8] = (' меньше ', ' больше ');
 
function Pl(a, b: real): real;
begin
  pl := a * b / 2;  
end;
 
begin
  writeln('Введите длины двух катетов первого треугольника:');
  readln(a, b);
  writeln('Введите длины двух катетов второго треугольника:');
  readln(a1, b1); 
  if pl(a, b) = pl(a1, b1) then writeln('Площади равны.')
  else writeln('Площадь первого треугольника', outOf[pl(a, b) > pl(a1, b1)],'площади второго треугольника.');  
end.

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

Введены четыре переменные: a, b, a1, b1 типа real для хранения длин катетов треугольников.
Объявлен массив outOf типа Boolean[8] для хранения строк меньше и больше для последующего вывода.
Определена функция Pl(a, b: real) типа real для вычисления площади треугольника по формуле Pl = (a * b) / 2.
В основном блоке программы выводятся сообщения с просьбой ввести длины катетов первого и второго треугольников.
После ввода длин катетов вызывается функция Pl(a, b) и Pl(a1, b1) для вычисления площадей треугольников.
Сравниваются полученные площади и в зависимости от результата выводится сообщение о равенстве или неравенстве площадей с использованием строк из массива outOf.