p = 0.3 (slider from 0 to 1, step 0.05)
l1 = Sequence(BinomialDist[100, p, k1, false], k1, 0, 100, 1)
a = BarChart(-0.5, 100 + 0.5, l1)
k = 27 (slider from 0 to 100, step 1)
l2 = Sequence(BinomialDist[100, p, k1, false], k1, 0, k, 1)
b = BarChart(-0.5, k + 0.5, l2)
Text1: "$P(X\leq " + (LaTeX[k]) + ")=" + (LaTeX[b]) + "$"