Даны три положительных числа. Найти, можно ли выстроить треугольник со гранями,

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наивеличайшая из сторон, тогда против нее будет лежать наивеличайший угол, который можно найти по аксиоме косинусов:


Текст программки приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (alt;b+c) and (blt;a+c) and (clt;a+b) then
  begin
    if agt;b then
    begin
        if alt;c then begin t:=a; a:=c; c:=t end
    end
    else
      if bgt;c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosAlt;0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник выстроить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный