Дана таблица в которой 10 строк и 8 столбцов в этой таблице записаны числа все числа кратные 5 нужно удвоить остальные утроить

Const   m=10;   n=8; var   a: array[1..m,1..n] of integer;   i,j: integer; begin   randomize;   writeln('исходный массив');   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(20)+10;           write(a[i,j]: 3)           end;       writeln       end;   writeln('результирующий массив');   for i: =1 to m do begin       for j: =1 to n do begin           if a[i,j] mod 5=0 then a[i,j]: =2*a[i,j]           else a[i,j]: =3*a[i,j];           write(a[i,j]: 3)           end;       writeln       end end. пример решения исходный массив   12 10 12 20 17 17 28 23   22 27 28 14 23 10 26 15   29 13 10 29 26 11 17 24   10 14 17 24 16 12 22 28   17 25 26 24 25 22 17 23   18 11 20 12 28 29 25 13   26 11 28 19 17 27 22 10   22 17 20 12 10 13 17 19   14 10 27 28 13 11 20 16   26 16 21 24 20 15 26 10 результирующий массив   36 20 36 40 51 51 84 69   66 81 84 42 69 20 78 30   87 39 20 87 78 33 51 72   20 42 51 72 48 36 66 84   51 50 78 72 50 66 51 69   54 33 40 36 84 87 50 39   78 33 84 57 51 81 66 20   66 51 40 36 20 39 51 57   42 20 81 84 39 33 40 48   78 48 63 72 40 30 78 20

Program asd; var a,b: array [1..250,1..250] of integer;     i,j,n,m,k: integer; begin   write('введите n: '); readln(n);     write('введите m: '); readln(m);   for i: = 1 to n do    begin    for j: = 1 to m do      begin      a[i,j]: =random(10);       write(a[i,j]: 3);     end;     writeln;   end; writeln; for i: = 1 to n do        for j: = 1 to m do    begin      if   a[i,j] mod 2=1 then inc(k);       end;               if n=m then      begin      writeln('транспонирование: ');       for i: =1 to n do   begin    for j: =1 to m do      begin      write(a[j,i]: 3);       b[i,j]: =a[i,j];       end;     writeln;     end;   writeln;       end      else writeln('кол-во нечетных элементов: ',k); end.