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

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