QBASIC PROGRAM TO DISPLAY 9, 7, 5......1(SUB)

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I =9 TO 1 STEP-2
PRINT I
NEXT I
END SUB