var i,j,n:integer;
b:array[1..10] of 0..2;
begin
n:=2014;j:=0;
while n>0 do begin
j:=j+1;b[j]:=n mod 3; n:=n div 3;
end;
for i:=j downto 1 do write(b[i]);
writeln;
end.

输出：2202121