Сколько томов печатного текста может быть записано на жесткий диск объемом памяти 6 мб, если том содержит 512 страниц, страница содержит 64 символа в строке и 32 строки на странице. таблица кодировки кои-8

//pascal abc.net 3.1 сборка 1219 const   n=10; var   c,i,k: integer;   ar: array[1..n] of integer;   r: real; begin   readln(c);   writeln('array: ');   for i: =1 to n do   begin     ar[i]: =random(-43,34);     if ar[i]> c then       begin       inc(k);       r: =r+ar[i];     end;     write(ar[i]: 4);   end;   writeln;   r: =r/k;   write(r); end. пример ввода: 0 пример вывода: array:   20 -23   23   18 -40 -16 -39   31 -12   21 22.6

Const   m=5;   n=4; var   mas: array[1..m,1..n] of integer;   i, j, mult: integer; begin   for i: =1 to m do     for j: =1 to n do     begin       write('mas[', i, ',', j, '] = ');       readln(mas[i,j]);     end;   for i: =1 to m do   begin     for j: =1 to n do       write(mas[i, j], ' ');     writeln;   end;   mult: =1;   for i: =1 to m do     mult: =mult*mas[i,3];   writeln('произведение 3-го столбца массива = ', mult) end.