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>
Не более 2^3 = 8
Не более 2^7 = 128
Если количество информации I, кол-во вариантов не более, чем 2^I
Редактор** Ир(а зачеркнутая и рядом о)*********повествование
Форматирование составь по моему образцу слова редактирование
вот программа ее можно обернуть функцию тогда будет более функционально а так тут просто цикл и работа со строками я тебе два варианта дал сам выберишь какой лучше