n = 41 (slider from 1 to 60, step 1)
L = Sequence((i, Binomial[n, i]), i, 0, n)
L2 = Sequence((i / n, Binomial[n, i] / 2^(n)), i, 0, n)
L3 = Sequence(Element[L, round(n / 2) + k], k, -5, 5)
T = TableText({L3}, "v")
Text1 = Text(" Anzahl der Möglichkeiten beim n-maligen Münzwurf")
Text2 = Text(" relative Häufigkeiten beim n-maligen Münzwurf")