D = Intersect(xAxis, yAxis)
A = Point(yAxis)
C = Point(xAxis)
a = OrthogonalLine(C, xAxis)
b = OrthogonalLine(A, yAxis)
B = Intersect(a, b)
poly1, a_1, b_1, d, c = Polygon(D, A, B, C)
e = Circle(B, C)
M = Intersect(e, b, 1)
O = Midpoint(A, M)
f = Circle(O, A)
H = Intersect(f, a, 2)
poly2, g, h, i, j, F, G = Polygon(H, B, 4)
Textepoly1: "Aire " + (Name[D]) + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
Textepoly2: "Aire = " + poly2