QBASIC SERIES: 2,8,18,32.....200 OR UPTO 10TH TERM

CLS
 FOR i = 1 TO 10
 PRINT i ^ 2 * 2;
 NEXT i
 END

USING SUB

DECLARE SUB SER()
 CLS
 CALL SER
 END
 
 SUB SER
 FOR i = 1 TO 10
 PRINT i ^ 2 * 2;
 NEXT i
 END SUB