Var
A.b:integer;
Begin
Readln(a.b);
If a+b>100 then
Writeln(a-20,' ',b-20)
Else
Writeln(a,' ',b)
End.
Это изи
2^33= 8589934592, 8589934592бит = 1073741824 байт = 1024МБ.
Потребуется 2 диска по 600МБ
4 Кб = 4*1024*8 = 32768 бита
433*433 = 187489 пикселей
187489/32768 ≈ 5 бит на 1 пискель2
2^5 = 32
Ответ: 32 цвета