input""n for i=1to n?i; if i*2/p>p+3?:p=p+1 next