Надо просто знать формулу объема изображения.Объем=кол-во строк в изображение*кол-во пикселей в строке*объем 1 бита.
32=2**5=>5 бит приходится на 1 пиксель.
Объем изображения=512*256*5=80 Кбайт
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
sum:=0;
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
{Заменяем эти элементы найденной суммой}
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;
{Вывод}
writeln;
for i:=1 to n do writeln(a[i]);
end.
Если просто написать формулу, то это выглядит так: R=D/K
214р отпрьмьмьеварпмпаормиомиоапогеврапра
x-это лево ,y-права по клеточкам сколько клеток столько и точек