DIMENSION a(10)
s=0
FOR i=1 TO 10
input "数字"+ALLTRIM(STR(i)) to a(i)
s=s+a(i)
ENDFOR
?"平均值：" , ALLTRIM(STR(s/10) )