Ну вот алгоритм в приклеенной картинке
<span />
var a:array [1..4,1..6] of integer;
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 6 do
begin
if j mod 2 <> 0 then a[i,j]:=1
else a[i,j]:=2;
write (a[i,j],' ')
end;
writeln
end
end.
Ответ номер 3. 15 Кбайт. Перемножаешь страницы, строки и символы. На 8 бит не умножаешь, так как ответ в байтах.