A = Point(xAxis)
B = (4, 3)
C = Intersect(xAxis, yAxis)
f = Segment(C, B)
g = Segment(B, A)
h = Segment(A, C)
D = Midpoint(B, A)
M = Point(f)
i = OrthogonalLine(M, h)
N = Intersect(i, h)
q1, m, d, a, n = Polygon(M, D, A, N)
distanceCM = Distance(C, M)
TexteCM: Name[C] + (Name[M]) + " = " + distanceCM
Texteq1: "Aire de  " + (Name[M]) + (Name[D]) + (Name[A]) + (Name[N]) + " = " + q1
Pointq1 = PointIn(q1)