B = (4, -2)
C = Point(Circle[B, 5])
f = Segment(B, C)
poly1, g, h, i, j, D, A = Polygon(B, C, 4)
M = Point(poly1)
k = Segment(M, D)
I = Midpoint(k)
t1, d, i_1, c = Polygon(I, C, D)
AM = Distance(A, M)
distanceAM = Distance(A, M)
Midpoint(A, M)
TexteAM: Name[A] + (Name[M]) + " = " + distanceAM
Aire: t1
texte1 = LaTeX(Aire, true, true)