n = 45 (slider from 10 to 60, step 1)
p = 0.65 (slider from 0 to 1, step 0.01)
a = BarChart(Sequence[k, k, 0, n], Sequence[Binomial[n, k] * p^(k) * (1 - p)^(n - k), k, 0, n], 0.2)
m: n * p
b = BarChart(Sequence[k, k, -m, n - m], Sequence[Binomial[n, k] * p^(k) * (1 - p)^(n - k), k, 0, n], 0.2)
σ: sqrt(n * p * (1 - p))
c = BarChart(Sequence[(k - m) / σ, k, 0, n], Sequence[Binomial[n, k] * p^(k) * (1 - p)^(n - k), k, 0, n], 0.2)