Display 1,1,2,3,5,8...into 10 th item using sub.

Display 1,1,2,3,5,8....into 10 th item using sub procedure.

DECLARE SUB SERIEA()

CLS

CALL SERIES

END

SUB SERIES()

A=1

B=1

FOR I=1 TO 5

PRINT A

PRINT B

A=A+B

B=A+B

NEXT I

END SUB