83. Qbasic Program to display 33333, 3333, 333, 33, 3

83. Write a program to display 33333, 3333, 333, 33, 3 by using SUB........END SUB

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

A = 33333

FOR I = 1 TO 5

PRINT A

A = A \ 10

NEXT I

END SUB