[Astral]

Уже нет, есть код на паскале, кому не в лом перевести на делфи?С меня пиво

Код:

var a,b,c,t : real
BEGIN
read(a);read(b);readln(c);
if (a+b>c)and(a+c>b)and(c+b>a) then
  begin
  if c < a then begin t:= a; a := c; c:=t;end;
  if c < b then begin t:= b; b := c; c:=t;end;{поменяли переменные местами, чтобы в "с" была самая большая}
  t := c*c-a*a-b*b;
  if t < 0 then writeln("треугольник остроугольный");
  if t = 0 then writeln("треугольник прямоугольный");
  if t > 0 then writeln("треугольник тупоугольный");
  end
else
  writeln("такого треугольника не существует");
END