Вычислить площадь треугольника - Pascal ABC (18614)

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

1)Вычислить площадь треугольника со сторонами a,b,c.

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

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

var
  a, b, c, p, s: real;
begin
  write('Введите стороны треугольника a, b, c: ');
  readln(a, b, c);
  if not ((a < b + c) and (b < a + c) and (c < a + b)) then
    writeln('Треугольника с заданными сторонами не существует!') else
  begin
    p := (a + b + c) / 2;
    s := sqrt(p * (p - a) * (p - b) * (p - c));
    writeln('Площадь S=', s:0:2);
  end;
end.

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

Введенные переменные:
- a, b, c - стороны треугольника
- p - полупериметр треугольника
- s - площадь треугольника
Ввод данных. Программа запрашивает у пользователя ввод сторон треугольника a, b, c.
Проверка на существование треугольника. Используется условие, что сумма любых двух сторон больше третьей стороны. Если условие не выполняется, выводится сообщение об ошибке.
Расчет полупериметра треугольника p по формуле (a + b + c) / 2.
Расчет площади треугольника s по формуле Герона. Используется формула sqrt(p (p - a) (p - b) * (p - c)).
Вывод результата. Выводится значение площади треугольника s с округлением до двух знаков после запятой.