Program hh;
uses crt;
var n : integer;
    f : array [1..46] of integer;
    i, j : integer;
    s : string;
begin
write('n=');
read(n);
f[1]:=1;
f[2]:=2;
for i:=3 to 46 do
f[i]:=f[i-1]+f[i-2];
i:=1;
while f[i+1]<=n do
i:=i+1;
s:='';
for j:=1 to i-1 do
s:=s+'0';
s:='1'+s;
n:=n-f[i];
while n>0 do
 begin
  j:=1;
  while f[j+1]<=n do j:=j+1;
  s[i+1-j]:='1';
  n:=n-f[j]
 end;
write(s);
end.