QBASIC SERIES : 0.1 , 0.01, 0.001 , 0.0001 , 0.00001

WAP TO GENERATE THE SERIES 0.1 , 0.01, 0.001 , 0.0001 , 0.00001

CLS
 A = 1
 FOR I = 1 TO 5
 PRINT A / 10 ^ I
 NEXT I
 END

USING SUB

DECLARE SUB SERIES()
 CLS
 CALL SERIES
 END
 
 SUB SERIES
 A = 1
 FOR I = 1 TO 5
 PRINT A / 10 ^ I
 NEXT I
 END SUB