从键盘输入一个数N,以该书为起始数,求出20个能被6整除且末位数是8的数

CLEAR
INPUT "起始数:" TO a
LOCAL i
i = 1
DO WHILE .T.
IF i > 20 && 发现 20 个就退出循环
EXIT
ENDIF
IF MOD(a,6) = 0 AND RIGHT(STR(a),1) = "8" && 如果被 6 整除且末位为 8
i = i + 1
ENDIF
a = a + 1
ENDDO