Решение - в прилагаемом файле.
Вычисляем количество всех точек 786432. 16 байт нужно для 256 цветов
Вычисляем объём в байтах 12582912 байт = 12288 Кб
Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
Просто нарисовать 8 разноцветных треугольников и обвести их, но все вместе