B = Point(xAxis)
A = Intersect(xAxis, yAxis)
C = (2, 4)
a = Segment(C, B)
b = Segment(A, C)
P = Point(xAxis)
c = OrthogonalLine(P, b)
d = OrthogonalLine(P, a)
I = Intersect(b, c)
J = Intersect(a, d)
poly1, a_1, i, p = Polygon(I, P, A)
poly2, p_1, j, b_1 = Polygon(J, B, P)
Textopoly1: "Área " + (Name[I]) + (Name[P]) + (Name[A]) + " = " + poly1
Textopoly2: "Área " + (Name[J]) + (Name[B]) + (Name[P]) + " = " + poly2
poly3, b_2, j_1, p_2, i_1, a_2 = Polygon(B, J, P, I, A)
Textopoly3: "Área " + (Name[B]) + (Name[J]) + (Name[P]) + (Name[I]) + (Name[A]) + " = " + poly3