Напечатайте на экран компьютера все числа в диапазоне от 1 до 100, делящиеся на 13 сделайте с циклом предусловием или с постусловием

I= 0 цикл(i< =100-13){ i+=13 вывод(i)}

Program sector; const n=10; var a: array [1..n,1..n] of integer; b: array [1..n] of real; i,j,z: byte; begin randomize; for i: =1 to n do begin       for j: =1 to n do begin               a[i,j]: =random (40);               a[i,j]: =a[i,j]-20;               write(a[i,j]: 4);       end;       writeln;       end; for i: =1 to n do begin       z: =0;       for j: =1 to i do       if (a[i,j] mod 2 < > 0) then z: =z+a[i,j];       b[i]: =z/2;       writeln(i,' ',b[i]); end; readln; end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,n,-99,99);   a.println(4); writeln(n*4*'-');   var b: =a.rows.select(row-> row.where(t-> t.isodd).defaultifempty.average)       .toarray;   b.println; end. пример количество строк/столбцов в матрице: 5 *** исходная матрица ***   40 -38  16 -70  26   87    7 -31  99  34   -34 -47 -33  32  56   66  71  41    7  80   55  42 -22    7  86 0 40.5 -40 39.6666666666667 31