Надо просто знать формулу объема изображения.Объем=кол-во строк в изображение*кол-во пикселей в строке*объем 1 бита.
32=2**5=>5 бит приходится на 1 пиксель.
Объем изображения=512*256*5=80 Кбайт
<span><em /><em /><em /><em>Я, конечно, не понял, что такое "точнее нужна нач программа для того что бы он вышел", но вот прототип игры из примеров паскаля, в которой невозможно победить (запускать через Pascal.ABC, в остальных версиях могут не работать лэйблы).</em></span>
Кате нужно вымыть посуду и сделать урки, что бы сходить в кино или пригласить друзей
Это робот, <span> исполнитель алгоритма</span>
var
a, i, count, s: integer;
begin
repeat
if(i = 100) then break;
readln(a);
if(abs(a) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else if(a mod 9 = 0) and (a <> 0) then begin
inc(count);
s := s + a;
end;
if(a <> 0) then inc(i);
until(a = 0);
writeln('Среднее арифметическое: ', s / count);
end.