QBASIC SERIES : 50,46,41,35,28,20,11

CLS
 A = 50
 B = 4
 FOR I = 1 TO 7
 PRINT A
 A = A - B
 B = B + 1
 NEXT I
 END

USING SUB

DECLARE SUB SERIES()
 CLS
 CALL SERIES
 END
 
 SUB SERIES
 A = 50
 B = 4
 FOR I = 1 TO 7
 PRINT A
 A = A - B
 B = B + 1
 NEXT I
 END SUB