n = 28 (slider from 0 to 400, step 1)
p = 0.34 (slider from 0 to 1, step 0.01)
a = Histogram(Sequence[i - 0.5, i, 0.0, n + 1.0], Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n])
b = BarChart(Sequence[i, i, 0.0, n], Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n], 0.1)