La Serie geométrica

x=

b = 0.5
k = 5 (slider from 0 to 200, step 1)
geometrica = Sequence(b^(n), n, 0, k)
a = Sum(geometrica)
CajaDeEntrada1 = Textfield(b)
texto1: "\sum_{n=0}^{" + (LaTeX[k]) + "}(" + (LaTeX[b]) + ")^{n}=" + (LaTeX[a]) + ""
c: 1 / (1 - b)
texto3: "\sum_{n=0}^{∞ }(" + (LaTeX[b]) + " )^{n}= " + (LaTeX[c]) + ""