var
i:integer;
s,m:string;
begin
<em>readln(s);
</em>
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then m:=m+s[i];
<em>write(m);</em>
<span>end.</span>
1. Мощность алфавита 128 = 2⁷, значит мы имеем дело с семибитной кодировкой.
2. Дальше простая арифметика:
2 Кб / 7 = 16384 бит/7 ≈ 2 340
Зайдите в параметры печатания.И обычный размер убрав,добавьте новый.