Найти является ли треугольник прямоугольным , если известны три стороны.(с ветвлением)

В Pascsl

Pascal

Var a,b,c:Integer; 
Begin   
Write('Введите длину 1 катета: '); Readln(a);   
Write('Введите длину 2 катета: '); Readln(b);   
 Write('Введите длину гипотенузы: '); Readln(c);   
 if ((a+b)gt;c) and ((a+c)gt;b) and ((b+c)gt;a) then        
 Begin            
 if (sqr(c)=sqr(a)+sqr(b)) then               
Writeln('Треугольник прямоугольный')         
  else               
Writeln('Треугольник иного типа');       
end   
else       
Writeln('Треугольник не существует');
END.

A,b,c стороны
если a^2=b^2+c^2
то
прямоугольный
по другому
если b^2=a^2+c^2
то
прямоугольный
по другому
если c^2=a^2+b^2
то
прямоугольный
по другому
не прямоугольный