Los

b_0 = 1.5 (slider from -5 to 5, step 0.1)
q = 1.2 (slider from 0 to 2, step 0.01)
i = 8 (slider from 0 to n, step 1)
n = 8 (slider from 2 to 10, step 1)
Liste1 = Sequence((j, (b_0 * q^(j))), j, 0, i)
Liste2 = Sequence(Polygon[(j, 0), (j + 1, 0), (j + 1, (b_0 * q^(j))), (j, (b_0 * q^(j)))], j, 0, i)
Liste3 = Sequence(Text["b_" + (j), (j + 0.4, (b_0 / 2 * q^(j)))], j, 0, i)
f(x) = (b_0 * q^(x))