A = Intersect(xAxis, yAxis)
B = Point(xAxis)
M = Point(yAxis)
C = (2, 6)
b = OrthogonalLine(M, yAxis)
a = Line(C, B)
N = Intersect(a, b)
c = OrthogonalLine(N, b)
P = Intersect(c, xAxis)
poly1, e, c_1, f, a_1 = Polygon(M, N, P, A)
poly2, d, f_1, e_1 = Polygon(P, M, C)
Textepoly2: "Aire " + (Name[P]) + (Name[M]) + (Name[C]) + " = " + poly2
Textepoly1: "Aire " + (Name[M]) + (Name[N]) + (Name[P]) + (Name[A]) + " = " + poly1
D = (0, 6)
poly3, a_2, b_1, c_2, d_1 = Polygon(A, B, C, D)