Дана последовательность чисел: 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.