A = (2.0755726993097867, 1.3708546188040822)
B = Point(Circle[A, 4])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = Circle(A, 7)
e = OrthogonalLine(B, a)
d = OrthogonalLine(A, a)
f = Circle(A, 6)
F = Intersect(f, d, 1)
D = Point(d)
g = OrthogonalLine(D, d)
h = OrthogonalLine(B, a)
C = Intersect(g, h)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
poly2, f_1, d_2, c_2 = Polygon(D, C, F)
distanceAD = Distance(A, D)
Textepoly1: "Aire " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + poly1
Textepoly2: "Aire " + (Name[D]) + (Name[C]) + (Name[F]) + " = " + poly2
TexteAD: "" + (Name[A] + (Name[D])) + " = " + distanceAD + ""