n = 25
p = 0.5
q: 1 - p
a = BarChart(-0.5, n + 0.5, Sequence[Binomial[n, k] * p^(k) * q^(n - k), k, 0, n])
Prob = BarChart(11.5, 14.5, Sequence[Binomial[n, k] * p^(k) * q^(n - k), k, 12, 14])