Если мощность алфавита = 128,значит вес символа =2^7 то есть 7 бит.
потом 7 умножаем на 600 и получаем 4200 бит.потом переводим в байты делением 4200/8 =525 байт.Переведем байты в килобайты получим 525/1024=0,5Mб
весы калькулятор и т.д что может помочь в сложных вычислениях
Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write(Зима);
if (A>2)and(A<6) then Write(Весна);
if (A>5)and(A<9) then Write(Лето);
if (A>8)and(A<=11) then Write(Осень);
End.