Дана последовательность чисел: 12323. К ней применён следующий цикл обработки:

1. Все цифры "1" заменить на "33"

2. Все цифры "2" заменить на "1"

3. Все цифры "3" заменить на "2"

например, после однократного выполнения этого цикла обработки получится последовательность S=221212

Запишите количество цифр в получившейся последовательности, если цикл применялся 14 раз.

Var i, j: integer;

chislo: string;

begin

chislo:='12323';

for j:=1 to 14 do

begin

i:=1;

while i<=length (chislo) do

begin

if copy (chislo, i, 1) = '1' then begin delete (chislo, i, 1) ; insert ('33', chislo, i) ; inc (i) ; end;

inc (i) ;

end;

i:=1;

while i<=length (chislo) do

begin

if copy (chislo, i, 1) = '2' then begin delete (chislo, i, 1) ; insert ('1', chislo, i) ; end;

inc (i) ;

end;

i:=1;

while i<=length (chislo) do

begin

if copy (chislo, i, 1) = '3' then begin delete (chislo, i, 1) ; insert ('2', chislo, i) ; end;

inc (i) ;

end;

end;

Writeln (chislo) ;

readln;

end.