Для хранения растрового изображения 128x128 пикселей отвели 4кб памяти. какого максимально возможно кол-во цветов в палитре ?

1) количество точек в изображении = 128*128 = 16384
2) 4Кб = 32768 бит (4*1024 = 4096 байт, т.к. 1 бит = 8 байт, 4096*8=32768)
3) 32768:16384 = 2 - это глубина цвета, число цветов в палитре =4

Var 
a: array[1..100] of integer; 
n, i: byte; 
sum, p: integer;
begin 
writeln('1. Случайным образом'); 
Randomize; 
write('Введите размер массива: '); 
readln(n); 
sum:=0; p:=1; 
for i:=1 to n do   
begin     
a[i]:=Random(101)-50;     
write(a[i]:4);     
sum:=sum+a[i];     
p:=p*a[i];   
end; 
writeln; 
writeln('Сумма = ', sum:5); 
writeln('Произведение = ', p:5); 
sum:=0; p:=1; 
writeln(''); 
writeln('2. С клавиатуры'); 
for i:=1 to n do   
begin   
write('Элемент ', i, ' = ');   
readln(a[i]);   
sum:=sum+a[i];   
p:=p*a[i];   
end; 
writeln('Сумма = ', sum:5); 
writeln('Произведение = ', p:5);
end.

Одно из трех:
1) Задача проще чем кажется, поэтому не нужно ничего усложнять. Достаточно просто все записать в соответствии в таблицу и отсортировать по столбцу "Скорость" при фильтров. Что я и сделал (см. файл Excel лист "Предтеч просто")
2) В задаче НЕ достаточно условий, т.к. мне стало не ясно зачем тут 4-ре исследователя!? Я пытался их приплести к условию задачи (Лист: "Предтеч - сложно"), Но мне кажется получился бред.
3) Возможно я чего-то не понял из всего информационного хаоса царившего в данной задаче, но как решать её по другому я не знаю.