clea
m=0

yn="Y"
l=1
do while upper(yn)="Y"

inpu "請輸入a的值" to m

for i=2 to m-1
if m/i=int(m/i)
l=0
exit
endi
next

if l=1
?"m是素數(shù)"
else
?"m不是素數(shù)"
endi


wait "要繼續(xù)么y/n" to yn


enddo