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

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

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

FOR I = 5 TO 1 STEP -1

FOR J = 1 TO I

PRINT I;

NEXT J

PRINT

NEXT I

END SUB