Program treugol;
var
   str, str1, str2: string;
   fl, fl1, fl2 : boolean;
   a, b, c: integer;
begin
   repeat
   writeln('введите длинну стороны а (положительное число)');
      readln(str);
      if trystrtoint(str, a) then
         fl := true
      else
         fl := false;
      if (fl = true) and (a<1) then
         fl := false;
   until fl;
   repeat
   writeln('введите длинну стороны b (положительное число)');
      readln(str1);
      if trystrtoint(str1, b) then
         fl1 := true
      else
         fl1 := false;
      if (fl1 = true) and (b<1) then
         fl1 := false;
   until fl1;
   repeat
   writeln('введите длинну стороны c (положительное число)');
      readln(str2);
      if trystrtoint(str2, c) then
         fl2 := true
      else
         fl2 := false;
      if (fl2 = true) and (c<1) then
         fl2 := false;
   until fl2;
      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.