input""n
for i=0to n-1a=i*2*pi/n
?val(str$(cos(a)*1e3,"%.0f")),val(str$(sin(a)*1e3,"%.0f"))next