85. Qbasic Program to display 1, 22, 333, 4444, 55555

85. Write a sub procedure to display 1, 22, 333, 4444, 55555

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 5

FOR J = 1 TO I

PRINT I;

NEXT J

PRINT

NEXT I

END SUB