clear
s=0 &&statistical number
input "Please enter
clear
s=0 &&statistical number
input "Please enter an integer:" to n
if n<= 100
for i=n to 100
if mod(i,7)=0 or mod(i,11)=0
?i p>
s=s+1
endif
endfor
else
messagebox("The entered value is wrong! ")
endif "一***",s,"一"