Найди информациооный объем в битах растрового изображения размером 37×37 пикселя есди известно что используется палитра 4 цветов

var A: array [1..4,1..3] of real;

var B: array [1..4,1..3] of integer;

var i,j,max,min: integer;

begin

max:=11;

min:=11;

randomize();

writeln('Произвольная матрица B 3x4:');

For i:= 1 to 4 do

begin

 For j:= 1 to 3 do

 begin

 B[i,j]:=random(100);

 if (B[i,j]<B[min div 10,min mod 10]) then min:=i*10+j;

 if (B[i,j]>B[max div 10,max mod 10]) then max:=i*10+j;

 write(B[i,j]:4);

 end;

 writeln();

end;

writeln('Максимальный элемент матрицы B: ',B[max div 10,max mod 10]);

writeln('Минимальный элемент матрицы B: ',B[min div 10,min mod 10]);

writeln('Матрица A:');

For i:= 1 to 4 do

begin

 For j:= 1 to 3 do

 begin

 A[i,j]:=(2*B[i,j]+B[min div 10,min mod 10])/(B[max div 10,max mod 10]);

 write(A[i,j]:7:3);

 end;

 writeln();

end;

end.

использовать Робот

алг  столбы

нач

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

кон