n = 200 (slider from 0 to 200, step 1)
p = 0.55 (slider from 0 to 1, step 0.01)
a = BarChart(0, n, Sequence[Binomial[n, k] * p^(k) * (1 - p)^(n - k), k, 0, n])