rem N 以下の素数を求める
cls
dim n, i, j
input "求める最大値？", n
n = val(n)
dim a[n]
for i = 2 to n {
	a[i] = i
}
for i = 2 to n {
	if(a[i] >= 0){
		print a[i], " "
		j = 2 * a[i]
		while(j <= n){
			a[j] = -1
			j = j + a[i] 
		}
	}
}
beep