program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a,b:array[1..10000000] of integer; n,i,j,k,x:integer; begin readln(n); for i:=1 to round(exp(n*ln(2)))do begin j:=1; while i>0 do begin a[j]:=i mod 2; n:=n div 2; j:=j+1; end; x:=1; for k:=j downto 1 do begin b[x]:=a[k]; x:=x+1; end; for j:=1 to n do write(b[j]); writeln; end; readln; end. end.