n = 9 (slider from 3 to 30, step 1)
sommets = Sequence((1.0; 2.0 * 3.141592653589793 * k / n), k, 1.0, n)
issusdeA = Sequence(Segment[(1.0; 2.0 * k * 3.141592653589793 / n), (1.0; 0°)], k, 1.0, n - 1.0)
somme = Sum(issusdeA)
produit = Product(issusdeA)
O = (0, 0)
A = (1, 0)
côtés = Sequence(Segment[(1.0; 2.0 * k * 3.141592653589793 / n), (1.0; 2.0 * (k + 1.0) * 3.141592653589793 / n)], k, 1.0, n)
Séquence[Segment[(1; 2 k π / n), (1, 2 (k + 1) π / n)], k, 1, n] = Sequence(Segment[(1.0; 2.0 * k * 3.141592653589793 / n), (1.0; 2.0 * (k + 1.0) * 3.141592653589793 / n)], k, 1.0, n)
sommedivparn: somme / n