256 цветов можно закодировать восемью битами, т.к. 256 = 2^8
8 бит = 1 байт, то есть один один пиксель занимает 1 байт.
Всего пикселей 64x64 = 2^6 * 2^6 = 2^12
Получается, что объем изображения равен 2^12 байт.
Переведем в килобайты, для этого разделим на 1024, то есть на 2^10:
2^12 / 2^10 = 2^2 = 4 Кбайт.
Var a:integer;
begin
writeln('Введите время (в минутах)');
readln(a);
if ((a mod 10>=0)and(a mod 10< 3))or((a mod 10>=5)and(a mod 10< 8)) then writeln('Зелёный')
else writeln('Красный');
readln
end.