... und los!

\frac{A_K_r_e_i_s}{A_Q_u_a_d_r_a_t}=\frac{r^2 \pi}{(2r)^2}=\frac{\pi}{4}

n = 2000 (slider from 0 to 2000)
L2000 = Sequence(((2 * random()) - 1, (2 * random()) - 1), i, 1, 2000)
L_{n} = Take(L2000, 1, n)
A = (-1, 1)
B = (1, 1)
C = (1, -1)
D = (-1, -1)
q1, a, b, c, d = Polygon(A, B, C, D)
E = Intersect(xAxis, yAxis)
F = Intersect(a, yAxis)
e = Circle(E, F)
T = Element(L_{n}, n)
t = CountIf(Length[P] < 1, P, L_{n})
rH: t / n
f: (4 * rH)
text1: "\frac{A_{K_r_e_i_s}}{A_Q_u_a_d_r_a_t}≈\frac{\text{Punkte im Kreis}}{\text{alle Punkte}}=\frac{" + (LaTeX[t]) + "}{" + (LaTeX[n]) + "}≈" + (LaTeX[rH]) + ""
text3: "⇒π≈4\cdot" + (LaTeX[rH]) + "=" + (LaTeX[f]) + "
"