A = Point(a)
B = Point(a)
n = 8 (slider from 3 to 10, step 1)
polígono1, b, c, d, e, f, g, h, i, j, k, C, D, E, F, G, H, I, J = Polygon(A, B, n)
p = Circle(B, C, A)
l = Tangent(C, p)
m = Tangent(B, p)
q = OrthogonalLine(B, m)
r = OrthogonalLine(C, l)
O = Intersect(q, r)
s = OrthogonalLine(O, c)
t = Segment(O, C)
a_1 = Segment(O, B)
K = Midpoint(B, C)
b_1 = Segment(O, K)
polígono2, c_1, b_2, o = Polygon(B, O, C)
u: n * b
texto1: "Perímetro = n \times (lado \ AB)=" + (LaTeX[n]) + "\times " + (LaTeX[b]) + "=" + (LaTeX[u]) + "\ cm"
texto2: "Área = \frac{1}{2} Perímetro \times\mbox apótema= \frac{1}{2} " + (LaTeX[u]) + "\times" + (LaTeX[b_1]) + "=" + (LaTeX[polígono1]) + "\ cm^2"