vf 随机输入自然数n以内所有是5的倍数的自然数并统计个数

CLEAR
SET TALK OFF
s=0
input "输入一个自然数:" to n
"5的倍数有:"
FOR i=1 TO n
IF i%5=0
s=s+1
ENDIF
NEXT
"5的倍数有",s,"个"
SET talk on