Program treugol;
var
   str: string;
   a, b, c, code: integer;
begin
   repeat
   writeln('введите длинну стороны а (положительное число)');
      readln(str);
      Val(str, a, code)
   until (code = 0) and (a > 1);
   repeat
   writeln('введите длинну стороны b (положительное число)');
      readln(str);
      b := Val(str)
   until (code = 0) and (b > 1);
   repeat
   writeln('введите длинну стороны c (положительное число)');
      readln(str);
      c := Val(str)
   until (code = 0) and (c > 1);

   if (a+b<=c) or (a+c<=b) or (b+c<=a) then
      writeln('такого треугольника не существует');

   if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (c*c+b*b=a*a) then
      writeln('треугольник является прямоугольным')
   else
      writeln('треугольник не является прямоугольным');
end.