Сколько раз будет выполнено тело цикла с постусловием, если его условие всегда истинно?

Так как написано, программа будет работать бесконечно.   задавайте в программе точность вычислений, например, 6 знаков после запятой,   eps = 1.0e-6 var eps,s,delta: real;       i,sg: integer; begin   write('точность вычислений eps:   ');     readln(eps);   s: =0;   sg: =1;   i: =1;   repeat     delta: =1/(2*i-1);     s: =s+(1/(2*i-1))*sg;     sg: =-sg;     i: =i+1;   until delta< eps;   writeln('сумма:   ',s);   writeln('точное значение:   ',pi/4); end.

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 const   n=5; type   matrix=array[1..n,1..n] of integer; procedure dummyschool(var a: matrix); begin   writeln('ввод элементов матрицы');   for var i: =1 to n do begin       write(n,' элементов строки ',i,': ');       for var j: =1 to n do read(a[i,j]);       end;   writeln('сформирована матрица ',n,'x',n);   for var i: =1 to n do begin       for var j: =1 to n do write(a[i,j]: 5);       writeln       end end; begin   var b: matrix;   dummyschool(b);   var sn: =0;   var sp: =0;   for var i: =1 to n do       for var j: =1 to n do           if b[i,j]< 0 then sn+=b[i,j]           else               if b[i,j]> 0 then sp+=b[i,j];   writeln('сумма отрицательных ',sn);   writeln('сумма положительных ',sp) end. тестовое решение: ввод элементов матрицы 5 элементов строки 1: 6 23 -5 13 9 5 элементов строки 2: 42 0 -38 16 37 5 элементов строки 3: -5 -18 3 11 8 5 элементов строки 4: 9 13 -11 0 3 5 элементов строки 5: 19 -17 0 15 5 сформирована матрица 5x5       6    23    -5    13      9     42      0  -38    16    37     -5  -18      3    11      8       9    13  -11      0      3     19  -17      0    15      5 сумма отрицательных -94 сумма положительных 232