clear
input "请输入一个数:" to x
m=0
for i=2 to x-1
if x%i=0
m=1
exit
endif
endfor
if m=1
"不是质数"
else
"是质数"