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