View difference between Paste ID: 7WbJn5S9 and 8CRyQgFU

 Program treugol;
 var
-   str, str1, str2: string;
+   str: string;
-   fl, fl1, fl2 : boolean;
+   a, b, c, code: integer;
-   a, b, c: integer;
+
    repeat
    writeln('введите длинну стороны а (положительное число)');
       readln(str);
       Val(str, a, code)
-      if trystrtoint(str, a) then
+   until (code = 0) and (a > 1);
-         fl := true
+
-      else
+
-         fl := false;
+
-      if (fl = true) and (a<1) then
+      b := Val(str)
-         fl := false;
+   until (code = 0) and (b > 1);
-   until fl;
+
    writeln('введите длинну стороны c (положительное число)');
       readln(str);
-      readln(str1);
+      c := Val(str)
-      if trystrtoint(str1, b) then
+   until (code = 0) and (c > 1);
-         fl1 := true
+
-      else
+   if (a+b<=c) or (a+c<=b) or (b+c<=a) then
-         fl1 := false;
+      writeln('такого треугольника не существует');
-      if (fl1 = true) and (b<1) then
+
-         fl1 := false;
+   if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (c*c+b*b=a*a) then
-   until fl1;
+      writeln('треугольник является прямоугольным')
    else
       writeln('треугольник не является прямоугольным');
-      readln(str2);
+