var r,x,y:comp;s:string;begin read(r);for y:=-r to r do begin s:='';for x:=-r to r do s:=s+copy("* ",ord(x*x+y*y>r*r)+1,1);writeln(s)end end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page