var i,j,k,l,m,n:comp;begin read(n);l:=1;for i:=2-n*2to 0do begin j:=k;k:=l;l:=-j;for j:=i div 2to 0do begin m:=m+k;n:=n+l;write(m-1,n-1,^`)end end end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page