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

Из трех отрезков 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.