for i=0to 22input""a$
b$=mid$(a$,3,1)
if(a$<b$)*(b$<mid$(a$,5))?a$
next