a

radio = 5 (slider from 2 to 5, step 0.1)
A = (3.04, 0.78)
B = (6.82, 4.62)
c = Circle(A, radio)
C = Point(c)
n = 5 (slider from 3 to 40, step 1)
C' = Rotate(C, (360 * ° / n), A)
polígono1, l, g, h, i, j, k, l_2, m, p, q, r, s, t, a, b, d, e, f_1, g_1, h_1, i_1, j_1, k_1, l_1, m_1, n_1, p_1, q_1, r_1, s_1, t_1, a_1, b_1, c_1, d_1, e_1, f_2, g_2, h_2, i_2, D, E, F, G, H, I, J, K, L_2, M, N, O, P, Q, R_2, S, T, U, V, W, Z, A_1, B_1, C_1, D_1, E_1, F_1, G_1, H_1, I_1, J_1, K_1, L_1, M_1, N_1, O_1, P_1, Q_1 = Polygon(C, C', n)
j_2 = OrthogonalLine(A, l)
R_1 = Intersect(j_2, l)
a_p = Segment(A, R_1)
polígono2, c', R, L = Polygon(C, A, C')
texto1_1: "Área polígono regular = " + polígono1 + " cm²"