10 LET[0],1,3,10,2,8
20 S=0
30 FOR I=0 TO 4
40  S=S+[i]
50 NEXT
60 A=S*10/5
70 B=A/10
80 PRINT "AVERAGE=";B;".";A-B*10