81. Qbasic Program to display 5, 55, 555 ….. up to 6th terms

81. Write a program in QBASIC to display the following series using SUB…. END SUB.

5, 55, 555 ….. up to 6^th terms

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

A = 5

FOR I = 1 TO 5

PRINT A,

A = A * 10 + 5

NEXT I

END SUB