p = 0.48 (slider from 0 to 1, step 0.01)
n = 89 (slider from 5 to 200, step 1)
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)