QBASIC SERIES : 30,28.5,27,...18 or 9th term

30,28.5,27,25.5,24,22.5,21,19.5,18

CLS
 A = 30
 FOR I = 1 TO 9
 PRINT A,
 A = A – 1.5
 NEXT I
 END

USING SUB

DECLARE SUB SERIES()
 CLS
 A = 30
 FOR I = 1 TO 9
 PRINT A,
 A = A – 1.5
 NEXT I
 END SUB