Укажите минимальный объём памяти в килобайтах достаточный для хранения любого растрового изображения размером 300×300 пикселей если извесно что в изображении используется палитра из 216 цветов

program fantscrin;

  const n = 15;

  const m = 10;

  var x: array [1..n] of real;

      y: array [1..n] of real;

      z: array [1..n+m] of real;

      i,e_1,e_2,g: integer; s,p,min: real;

begin

  for i: =1 to n do

    x[i]: =random(20)-10;

  for i: =1 to m do

    y[i]: =random(10)-5;

  for i: =1 to n do

    write(x[i],'   ');

  s: =0;  

  for i: =1 to n do

    if(i mod 2 < > 0) then s: =s+x[i];

  for i: =1 to n do

    if (x[i] < 0) then

                  begin

                    e_1: =i;

                    break;

                  end;

  for i: =n downto 1 do

    if (x[i] < 0) then

                  begin

                    e_2: =i;

                    break;

                  end;

  p: =1;

  for i: =e_1 to e_2 do

    p: =p*x[i];

  for i: =1 to n do

    z[i]: =x[i];

  for i: =1 to m do

    z[n+i]: =y[i];

  min: =z[1];

  g: =1;

  for i: =2 to n+m do

    if (z[i] < min) then  

                    begin

                      min: =z[i];

                      g: =i;

                    end;

  writeln('');

  writeln('1. : ',s);

  writeln('2. : ',p);

  for i: =1 to m do

    write(y[i],'   ');

  writeln('');

  for i: =1 to n+m do

    write(z[i],'   ');

  for i: =g to n+m-1 do

    z[i]: =z[i+1];

  z[n+m]: =0;

  writeln('');

  writeln(g);

  for i: =1 to n+m-1 do

    write(z[i],'   ');

end.