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