program numeric; {$APPTYPE CONSOLE} uses SysUtils; var c:array[1..45] of integer; n:integer; k:int64; procedure p(i,v:integer); var j:integer; begin c[i]:=v; if i=n then begin //for i:=1 to n do write(c[i]);writeln; k:=k+1; end else begin if (c[i]<>1) and (c[i]<>2) then p(i+1,1); if (c[i]=1)and(i