clear
input "請(qǐng)輸入一個(gè)數(shù)：" to n
?"這些質(zhì)數(shù)有："
s=0
for i=2 to n
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
?alltrim(str(i))+""
s=s+i
endif
endfor
?"它們的和：",s