女，65岁，两个月前牙齿松动，自行拔除，张口受限1个月余，现右侧咬肌肿胀，按压有脓液

【程序】
SET TAIK OFF
CLEAR
INPUT“M＝”TO M
STORE 0 TO S1，S2
FOR I=1 TO M
(8)
DO SUB1
DO SUB2
ENDFOR
” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))
SET TALK ON
PROCEDURE SUB1
(9)
FOR R＝1 TO A
K＝K+R
ENDFOR
(10)
RETURN
PROCEDURE SUB2
(11)
FOR P＝1 TO A
T=T*P
ENDFOR
(12)
RETURN