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

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

Const   n = 10;   m = 10; type   matrix = array[1..n, 1..m] of integer; procedure entermas(var mas: matrix); var  i, j: integer; begin   randomize;   for i : = 1 to n do       for j : = 1 to m do           mas[i, j] : = random(100); end; procedure givemas(var mas: matrix); var  i, j: integer; begin   for i : = 1 to n do   begin       for j : = 1 to m do       begin           write(mas[i, j], ' ');       end;       writeln;   end; end; function sumstroki(mas: matrix; i, k: integer): integer; var   j, sum: integer; begin   sum : = 0;   for j : = 1 to m do       sum : = sum + mas[i, j];   sumstroki : = sum - k; end; function element(var mas: matrix): integer; var   i, j, count: integer; begin   count : = 0;   for i : = 1 to n do       for j : = 1 to m do           if mas[i, j] > sumstroki(mas, i, mas[i, j]) then inc(count);   element : = count; end; var  mas: matrix;   sum, max: integer; begin   entermas(mas);   givemas(mas);   writeln('кол-во особых элементов ', element(mas)); end.