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);
      Val(str, b, code);
   until (code = 0) and (b >= 1);
   repeat
      writeln('введите длинну стороны c (положительное число)');
      readln(str);
      Val(str, c, code);
   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.