A = (50, 260)
C = (100, 260)
B = (75, 0)
poly1, c, a, b = Polygon(A, B, C)
D = (130, 260)
F = (180, 260)
E = (155, 0)
poly2, f, d, e = Polygon(D, E, F)
G = (115, 170)
poly3, d_1, c_1, g = Polygon(C, G, D)
h = Line(B, A)
i = Line(E, F)
H = Point(h)
j = Line(H, b)
I = Intersect(j, i)
poly4, h_1, i_1, f_1, a_1 = Polygon(H, I, F, A)
distanceHI = Distance(H, I)
TexteHI: Name[H] + (Name[I]) + " \, = \, " + distanceHI
J = Midpoint(I, H)
k = OrthogonalLine(J, h_1)
K = Intersect(l, k)
poly5, i_2, h_2, k_1 = Polygon(H, K, I)
Textepoly1: "Aire " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
Textepoly2: "Aire " + (Name[D]) + (Name[E]) + (Name[F]) + " = " + poly2
Textepoly3: "Aire " + (Name[C]) + (Name[G]) + (Name[D]) + " = " + poly3
Textepoly4: "Aire " + (Name[H]) + (Name[I]) + (Name[F]) + (Name[A]) + " = " + poly4
Textepoly5: "Aire " + (Name[H]) + (Name[K]) + (Name[I]) + " = " + poly5