Los

a_0 = 1.5 (slider from -5 to 5, step 0.1)
k = 0.5 (slider from -2 to 2, step 0.1)
i = 8 (slider from 0 to n, step 1)
n = 8 (slider from 2 to 10, step 1)
Liste1 = Sequence((j, a_0 + (j * k)), j, 0, i)
Liste2 = Sequence(Polygon[(j, 0), (j + 1, 0), (j + 1, a_0 + (j * k)), (j, a_0 + (j * k))], j, 0, i)
Liste3 = Sequence(Text["a_" + (j), (j + 0.5, a_0 / 2 + (j * k))], j, 0, i)
C = (-3.76, 4.6)
b = Line((0, a_0), (i, a_0 + (n * k)))