Программа

VAR a,b,c,d:real; { Отрезки }
PROCEDURE PLOS(X,Y,Z:real);
  Var p:real; { Полупериметр }
      S:real; { Квадрат площади }
  Begin
    p:=(X+Y+Z)/2;  { Вычисление полупериметра }
    S:=p*(p-X)*(p-Y)*(p-Z); { Вычисление квадрата площади }
    if S<0 { Определение существования треугольника }
    then WriteLn('не существует') { Печать сообщения об отсутствии треугольника }
    else WriteLn('имеет площадь ',Sqrt(S)) { Вычисление и печать площади треугольника }
  End;
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите длину отрезка "a" '); { Вывод приглашения }
  ReadLn(a); { Ввод длины }
  Write('Введите длину отрезка "b" '); { Вывод приглашения }
  ReadLn(b); { Ввод длины }
  Write('Введите длину отрезка "c" '); { Вывод приглашения }
  ReadLn(c); { Ввод длины }
  Write('Введите длину отрезка "d" '); { Вывод приглашения }
  ReadLn(d); { Ввод длины }
  Write('Треугольник "abc" ');
  PLOS(a,b,c); { Вычисление и вывод площади треугольника }
  Write('Треугольник "abd" ');
  PLOS(a,b,d); { Вычисление и вывод площади треугольника }
  Write('Треугольник "acd" ');
  PLOS(a,c,d); { Вычисление и вывод площади треугольника }
  Write('Треугольник "bcd" ');
  PLOS(b,c,d) { Вычисление и вывод площади треугольника }
END.