WAP to print the pattern: 0.00003,0.0003,0.003,0.03,0.3

Qbasic program to print the pattern: 0.00003,0.0003,0.003,0.03,0.3

0.00003
0.0003
0.003
0.03
0.3

CLS
 A = .00003
 FOR I = 1 TO 5
 PRINT A
 A = A * 10
 NEXT I
 END

USING SUB

DECLARE SUB PATTERN()
 CLS
 CALL PATTERN
 END
 
 SUB PATTERN
 A = .00003
 FOR I = 1 TO 5
 PRINT A
 A = A * 10
 NEXT I
 END SUB