用直到型：
INPUT "正整数n=" n
i=1
DO
n=n×(n-i)
i=i+1
UNTIL LOOP i=n
PRINT "阶乘=" n
END