Даны числа a,b,c. Если существует ли треугольник со сторонами a,b,c, то определить прямоугольный ли он- Pascal(Паскаль)

uses crt;
var a,b,c:integer;
begin
   clrscr;
   writeln('a, b, c = ');
   readln(a,b,c);
   if (a+b>c)and(a+c>b)and(b+c>a) then
      if (a*a+b*b=c*c)or(a*a+c*c=b*b)or(b*b+c*c=a*a) then write('Trikutnik prjamougolnyj')
                                                     else write('Trikutnik ne prjamougolnyj')
                                                 else write('Trikutnika ne sush4ectvujet');
   readkey
end.