A = (2.8000000000000003, -1.34)
v = 4 (slider from 3 to 20, step 1)
n: round(v)
O = (4.72, 0.48)
r = 5.7
c = Circle(O, r)
E = Point(c)
lista1 = Sequence(Rotate[E, t * 2.0 * 3.141592653589793 / n, O], t, 0.0, n)
lista2b = Sequence(Line[Element[lista1, k], Element[lista1, k + 1.0]], k, 1.0, n)
lista2 = Sequence(Segment[Element[lista1, k], Element[lista1, k + 1.0]], k, 1.0, n)
lista4 = Sequence(OrthogonalLine[A, Element[lista2, k]], k, 1.0, n)
C = Point(c)
lista5 = Sequence(Intersect[Element[lista4, k], Element[lista2b, k]], k, 1.0, n)
texto1: "Nº vértices = " + n
lista3: {Polygon[Element[lista1, 1.0], Element[lista1, 2.0], n]}
lista6 = Sequence(Segment[A, Element[lista5, k]], k, 1.0, n)
suma = Sum(lista6)
lado: 2.0 * r * sin(3.141592653589793 / n)
texto2: "Lado = " + lado
texto3: "Suma = " + suma
ap: r * cos(3.141592653589793 / n)
texto4: "Apotema =" + ap