A = (-1.5572, -2.5362)
C = Point(Circle[A, 9.2])
a = Segment(A, C)
c = Circle(A, 5)
d = Circle(C, 7.6)
B = Intersect(c, d, 1)
D = Intersect(c, d, 1)
poly1, c_1, a_1, b = Polygon(A, B, C)
P = Point(poly1)
poly2, b_1, a_2, e = Polygon(A, P, B)
poly4, b_3, e_2, c_2 = Polygon(P, C, B)
texte1: "Périmètre de ABP = " + (Perimeter[poly2])
texte2: "Périmètre de BPC = " + (Perimeter[poly4])