X suit B(n,p)

F=X/n

p = 0.3 (slider from 0 to 1, step 0.01)
n = 30 (slider from 5 to 200, step 1)
s: sqrt(n * p * (1 - p))
d = false
e = true
m: n * p
Liste_P = Sequence(BinomialDist[n, p, k, false], k, 0, n, 1)
Liste_{val} = Sequence(k, k, 0, n, 1)
a = BarChart(Liste_{val}, Liste_P, 0)
Liste_F = Sequence(k / n, k, 0, n, 1)
ff = BarChart(Liste_F, Liste_P, 0)