QBASIC : 99,97,95.......1

CLS
 FOR I = 99 TO 1 STEP - 2
 PRINT I,
 NEXT I
 END

USING SUB

DECLARE SUB SER()
 CLS
 CALL SER
 END
 
 SUB SER
 FOR I = 99 TO 1 STEP - 2
 PRINT I,
 NEXT I
 END SUB