var i,j,n:comp;begin read(n);for i:=-n to n do for j:=-n to n do write(("* ")[ord(i*i+j*j>n*n)+1],^j:ord(j=n))end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page