Wap to display 1,2,3,5,8, up to 13th term

Wap to display 1,2,3,5,8, up to 13th term

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