n_0=100 

n = 136 (slider from 0 to 200, step 1)
p = 0.33 (slider from 0 to 1, step 0.01)
LBnp = Sequence(Binomial[n, k] * p^(k) * (1 - p)^(n - k), k, 0, n)
n_0 = 100
LBn0p = Sequence(Binomial[n_0, k] * p^(k) * (1 - p)^(n_0 - k), k, 0, n_0)
Histo_p = BarChart(-0.5, n + 0.5, LBnp)
Histon_0 = BarChart(-0.5, n_0 + 0.5, LBn0p)