QBASIC SERIES : -30,-20,-10,0,10,20.........20TH TERM

WAP TO GENERATE -30,-20....20TH TERM

CLS
 A = -30
 FOR I = 1 TO 20
 PRINT A,
 A = A + 10
 NEXT I
 END

USING SUB

DECLARE SUB SERIES()
 CLS
 CALL SERIES
 END
 
 SUB SERIES
 A = -30
 FOR I = 1 TO 20
 PRINT A,
 A = A + 10
 NEXT I
 END SUB