10 RANDOMIZE
20 INPUT A
25 S=0
30 FOR I=1 TO A
40 B=RND(0)*70
50 S=S+B
55 FOR J=1 TO B+1
56 PRINT "*";
60 NEXT J
61 PRINT
70 NEXT I
80 PRINT "AVERAGE: ";S/A