a#=3.14
q#=0.5

;an < 0.01
;a*q^(n-1) < 0.01
;(n-1) lg q < 0.01/a
;n < lg (0.01/3.14)/lg(0.5)+1
;n < 9.295

For n = 1 To 9
	Print a*q^(n-1)
Next