<em>Последовательность Фибоначчи начинается с 0, если опечатки нет, то вот:</em>
begin
ArrGen(ReadInteger('n=') + 1, 1, 1, (i, j)-> i + j).Last.Println;
end.
<u>Пример вывода и ответ для числа 40 в приложении.</u>
128 * 128 = 16384 пикселей
8 Кб = 8192 байт = 65536 бит
65536 / 16384 = 4 бита на пиксель
2⁴ = 16
Ответ: 16 цветов.