Создать программу в паскале с - даны три отрезка а,в,с определить можно ли из этих отрезков получить треугольник,и если да то какой

Из трех отрезков a, b, c можно составить треугольник, если выполняется неравенство треугольника: сумма длин двух любых сторон треугольника строго больше длины третьей.

program triangle;
var  a,b,c:integer;  
res:string;
begin
  readln(a,b,c);  { отсортировать a,b,c. Имеем: a <= b <= c }
  if c >= a + b then res := 'Не возможно!' else
  if c*c = a*a + b*b then res := 'Возможно, прямоугольный.' else
  if c*c < a*a + b*b then res := 'Возможно, остроугольный.' else
  res := 'Возможно, тупоугольный';
  writeln(res);
end.