cls
dim a(50)
for i=1 to 50
    a(i)=int(rnd*81)+10
    print a(i);
next i
print
for i=1 to 50
    x=a(i)/10
    b(x)=b(x)+1
next i
p=1
for i=1 to 8 step 2
    count(P)=b(i)+b(i+1)
    p=p+1
next i
for i=1 to 4
    print count(i);(count(i)/50)*100;"%"
next i
end