Заданы координаты сторон треугольника, найти его площадь - Pascal ABC

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

14. Заданы координаты сторон треугольника. Если такой треугольник существу- ет, то найти его площадь. Решить задачу с использованием функций.

Решение задачи: «Заданы координаты сторон треугольника, найти его площадь»

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

var
  x1, y1, x2, y2, a, b, c, p: real;
 
begin
  write('Введите координаты для 1 стороны -> ');
  readln(x1, y1, x2, y2);
  a := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
  write('Введите координаты для 2 стороны -> ');
  readln(x1, y1, x2, y2);
  b := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
  write('Введите координаты для 3 стороны -> ');
  readln(x1, y1, x2, y2);
  c := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
  writeln('Стороны равны: ', a:0:2,' ', b:0:2,' ', c:0:2);
  if (a + b >= c)and(a + c >= b)and(b + c >= a)
    then begin
           p := (a + b + c) / 2;
           writeln('Площадь треугольника = ', sqrt(p * (p - a) * (p - b) * (p - c)):0:3)
         end
    else writeln('Треугольника с такими сторонами не существует!')
end.

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

Создается переменная массива x1, y1, x2, y2, в которые будут записаны координаты сторон треугольника, введенные пользователем.
Вычисляется гипотенуза треугольника, используя формулу Пифагора: a := sqrt(sqr(x1 - x2) + sqr(y1 - y2)).
Записывается сообщение о вводе координат для каждой из сторон треугольника.
Повторяется шаг 2 для двух других сторон треугольника.
Вычисляется площадь треугольника по формуле площади треугольника, используя координаты его вершин: p := (a + b + c) / 2;.
Если выполняется условие, что сумма трех сторон треугольника больше или равна среднему арифметическому трех сторон, и каждая из сторон больше или равна среднему арифметическому двух других сторон, то выводится сообщение о том, что треугольник существует.
Если условие не выполняется, то выводится сообщение о том, что треугольник с такими сторонами не существует.