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