read'(i2)',k do i=-k,k do j=-k,k if(i*i+j*j>k*k)then print'(" "$)' else print'("*"$)' endif enddo print* enddo end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page