10 * 2048 = 20480 символов
20480 * 8 = 163840 бит
1 байт = 8 бит
163840 / 8 = 20480 байт = 20 Кбайт
Program n1;
var a: integer;
begin
write('введите номер месяца: ');
readln(a);
if( a>=1) and (a<3) then writeln('зима');
if(a>=3) and (a<6) then writeln('весна');
if (a>=6) and (a<9) then writeln('лето');
if(a>=9) and (a<13) then writeln('осень');
end.
Качество картинки не самое лучшее