n = 185 (slider from 0 to 200, step 1)
p = 0.06 (slider from 0 to 1, step 0.005)
a = BarChart(-0.5, n + 0.5, Sequence[Binomial[n, k] * p^(k) * (1 - p)^(n - k), k, 0, n])
von = 7 (slider from 0 to 100, step 1)
bis = 9 (slider from 0 to 100, step 1)
c = BarChart(von - 0.5, bis + 0.5, Sequence[Binomial[n, k] * p^(k) * (1 - p)^(n - k), k, von, bis])
Text2: "P(" + von + " <= x <= " + bis + ") = " + c + ""