# Display 9,7,5,....  1(sub)


DECLARE SUB SERIES()
CLS
INPUT"Enter any number ";n
CALL SUB
END

SUB SERIES()
FOR I= 9 To 1 Step -2
PRINT I
NEXT I
END SUB