Monter Carlo Pi

A: (-1, 1)
B: (1, 1)
C: (1, -1)
D: (-1, -1)
c: x^(2) + y^(2) = 1
poly1, a, b, c_1, d = Polygon(A, B, C, D)
e(x, y) = x^(2) + y^(2) ≤ 1
n = 5950 (slider from 0 to 10000, step 1)
liste1 = Sequence((RandomUniform[-1, 1], RandomUniform[-1, 1]), i, 1, n)
liste2 = Sequence(IsInRegion[Element[liste1, i], c], i, 1, n)
f = Sum(liste2)
g: f / n
texte1: "Une valeur approchée de  π est donc " + ((4 * f / n)) + ""