e

D = Point(yAxis)
B = Point(yAxis)
A = Point(xAxis)
C = Mirror(A, yAxis)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + Vieleck1
abstandAC = Distance(A, C)
TextAC: "\overline{" + (Name[A]) + (Name[C]) + "} \, = \, " + abstandAC