Всего точек 800*200 = 160000 точек, 80 Кбайт = 655360 бит, т.о. на одну точку приходится чуть более чем по 4 бита, а 4 битами можно зашифровать 16 цветов ответ 16 цветов
begin Write('Введите шестнадцатиричное число: '); Readln(n); m := 0; while n[1] = '0' do delete(n, 1, 1); for i := 1 to length(n) do begin c := n[i]; case c of 'F', 'f': k := 15; 'E', 'e': k := 14; 'D', 'd': k := 13; 'C', 'c': k := 12; 'B', 'b': k := 11; 'A', 'a': k := 10; else k := Pos(c, d) - 1 end; m := 16 * m + k end; Writeln(n, '(16)=', m, '(10)') end.
ответ 16 цветов