A = (-2, 1)
B = (-2, -2)
C = (3, -2)
D = (3, 2)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
P = Point(b)
d = Segment(A, P)
e = Segment(P, D)
f = Distance(e, d)
distanceBP = Distance(B, P)
Midpoint(B, P)
TexteBP: Name[B] + (Name[P]) + " = " + distanceBP
distancePC = Distance(P, C)
Midpoint(P, C)
TextePC: Name[P] + (Name[C]) + " = " + distancePC