n = 18 (slider from 3 to 25, step 1)
e = 2.718281828459045
i = (0, 1)
sommets = Sequence(e^(2.0 * i * k * 3.141592653589793 / n), k, 1.0, n)
cotés = Sequence(Segment[e^(2.0 * i * k * 3.141592653589793 / n), e^(2.0 * i * (k + 1.0) * 3.141592653589793 / n)], k, 0.0, n - 1.0)
segments = Sequence(Segment[e^(2.0 * i * k * 3.141592653589793 / n), (1.0, 0.0)], k, 1.0, n - 1.0)
P = Product(segments)