QBASIC PROGRAM TO DISPLAY 1,2,3,5,8,.....13TH TERM(SUB)

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

A = 1

B = 2

FOR I = 1 TO 13

PRINT A;

C = A+B

A = B

B = C

NEXT I

END SUB