Если возможно построить тупоугольный треугольник - вычислить его площадь

var
  res, p: real;
  st: array[1..3]of integer;
  i, j, sm, tr: integer;
  alm: boolean;
 
begin
  for i := 1 to 3 do read(st[i]);
  
  //проверяем существование тр-ка
  for i := 1 to 3 do
  begin
    sm := 0;
    for j := 1 to 3 do
      if i <> j then sm += st[j];
    if st[i] > sm then alm := true;
  end;
  
  //сортируем
  for i := 1 to 3 - 1 do
    for j := 2 to 3 do
      if st[j - 1] > st[j] then begin tr := st[j];st[j] := st[j - 1];st[j - 1] := tr; end;
  
  for i := 1 to 3 do begin write(st[i]);if i <> 3 then write(', '); end;writeln;
  
  
  //вычисляем площадь
  p := (st[1] + st[2] + st[3]) / 2;
  res := sqrt(p * (p - st[1]) * (p - st[2]) * (p - st[3]));
  
  if alm = false then writeln('Площадь треугольника: ', res, ' см^2') else writeln('Треугольник не существует');  
end.