Для хранения растрового изображения размером 64 × 128 пикселей отвели 8 кбайт памяти. какое максимально возможное число цветов в палитре изображения?

var     a, b, c, a1, b1: integer; begin    writeln('введите a и b: ');     readln(a, b);     a1 : = a;     b1 : = b;     while b1 < > 0 do    begin        c : = a1 mod b1;         a1 : = b1;         b1 : = c;     end;     if b < > 0 then        writeln('нок(', a,',', b,') = ', a div a1 * b)    else        writeln('нок(', a,',', b,') = ', a);

end.

var    m : array [1..10] of integer;     i, b, s, p : integer; begin

    writeln('введите массив: ');

    for i : = 1 to 10 do

    begin         write(i, ': ');

      readln(m[i]);

    end;

    s : = 0;     b : = m[1];     p : = 1;     for i : = 1 to 10 do     begin         if b < m[i] then b : = m[i];         if m[i] > 0 then s : = s + m[i];         if m[i] mod 2 = 0 then p : = p * m[i];     end;     writeln('наибольший элемент = ', b);     writeln('сумма неотрицаельных элементов = ', s);     writeln('произведение четных элементов = ', p);     readln; end.