dim a(300)
1input""a(i)
if a(i)i=i+1:goto 1
for b=0to i-1z=1
for c=0to i-1z=z+(a(b)<a(c))next
?z
next