clear
input "请输入一个数：" to n
?"这些质数有："
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