dim a,max,min,sum,average
sum=0
max=20
min=50
for i=1 to 20
a=(Rnd * 50) + 50
sum=sum+a
if amax then max=a
print a
next
print max
print min
average=sum/20
print average