Адрес клетки это - координаты этой клетки
Var
i:integer;
begin
for i:=18 downto 1 do
write(i,' ');
end.
К-во пикселей 2048*1024=2097152
64 цвета следовательно один пиксель -6 бит
2097152*6=12582912 бит/8=1572864 байта/1024=1536Кбайт
Листинг программы и скриншот результата в приложениях