n = 111 (slider from 0 to 150, step 1)
p = 0.6 (slider from 0 to 1, step 0.005)
a = BarChart(-0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, n])
von = 63 (slider from 0 to 150, step 1)
bis = 66 (slider from 0 to 150, step 1)
c = BarChart(von - 0.5, bis + 0.5, Sequence[((nCr[n, k] * p^(k)) * (1 - p)^(n - k)), k, von, bis])
Text2: "P(" + von + " ≤ X ≤ " + bis + ") = " + c + ""