View difference between Paste ID: BsysBSAh and 7WbJn5S9

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