dim a(300)
for i=1to 300input""s$,a(i)
t=t+a(i)-a(max(0,i-5))
?s$,a(i)using"%5.1f"," Average: ",t/min(i,5)using"%.1f"next