Вычислите объем чёрно-белое (без градаций серого ) изображения в байтах, если одна клетка на рисунке соответсвунт одному пикселю

1байт = 1 пиксель :

Const   m=10;   n=6; var   a: array[1..m,1..n] of integer;   i,j,maxr: integer;   p,maxp: longint; begin   randomize;   writeln('исходный массив');   maxp: =0;   for i: =1 to m do   begin       p: =1;       for j: =1 to n do       begin           a[i,j]: =random(99)+1; { интервал [1..99] }           write(a[i,j]: 3);           p: =p*a[i,j]       end;       if maxp< p then begin maxp: =p; maxr: =i end;       writeln   end;   for i: =1 to m do       for j: =1 to n do a[i,j]: =a[maxr,j];   writeln('сформированный массив');   for i: =1 to m do   begin       for j: =1 to n do write(a[i,j]: 3);       writeln   end end. тестовое решение: исходный массив   86 61 76  1 86 64   93 87 34 66 35 13   51 39 57  5 71 49   86 47 26 30 93 80   58 24 59 57  3 79   46 81 17 24 11 37   12 83 56 75 89 16   50 93 57  1 51 64   25 35 69 29 46 73   68 56 68 95 42 62 сформированный массив   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80   86 47 26 30 93 80

Const n=2; var a: array[1..n,1..n]of integer; i,j,s,max,imax: integer; begin     for i: =1 to n do       begin           s: =0;             for j: =1 to n do                 begin                     readln(a[i,j]);                     s: =s+a[i,j];                 end;           if s> max then               begin                     max: =s;                     imax: =i;                 end;           end; writeln('i:   ',imax,'   s=  ',max); end.