D = Intersect(xAxis, yAxis)
C = Point(yAxis)
c = Circle(D, C)
A = Intersect(c, xAxis, 2)
a = Line(C, xAxis)
b = Line(A, yAxis)
B = Intersect(a, b)
M = Point(b)
d = Circle(A, M)
E = Intersect(d, xAxis, 1)
N = Midpoint(A, E)
poly1, m, c_1, d_1, n = Polygon(M, C, D, N)
Textopoly1: "Área " + (Name[M]) + (Name[C]) + (Name[D]) + (Name[N]) + " = " + poly1
e = Segment(N, A)
distânciaNA = Distance(N, A)
TextoNA: "\overline{" + (Name[N]) + (Name[A]) + "} \, = \, " + distânciaNA