n = 200 (slider from 0 to 200, step 1)
p = 0.5 (slider from 0 to 1, step 0.01)
LBnp = Sequence(Binomial[n, k] p^(k) (1.000000000000000 - p)^(n - k), k, 0.000000000000000, n)
p_0 = 0.5
LBnp_0 = Sequence(Binomial[n, k] p_0^(k) (1.000000000000000 - p_0)^(n - k), k, 0.000000000000000, n)
text3: "p_0= " + p_0
Histo_p = BarChart(-0.5000000000000000, n + 0.5000000000000000, LBnp)
Histop_0 = BarChart(-0.5000000000000000, n + 0.5000000000000000, LBnp_0)
text1: "p= " + p