Пусть х - количество символов
16*x-8*x=4*2^13 (килобайты перевела в биты)
8х=2^15
x=2^12
x=4096
Var
i,x:integer;
begin
i:=0;
while x<>0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.
<span>Вопрос из кроссворда учебника по информатики </span><span>это обработка )</span>