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