A = (3.9, 0.68)
Y = (6.379999999999999, -1.38)
Z = (-2.04, -2.4)
k = Line(Z, Y)
g = OrthogonalLine(A, k)
V = Intersect(k, g)
h = Line(Z, g)
C = Point(h)
B = Point(g)
poly1, c, a, b = Polygon(A, B, C)
Textpoly1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
d = Distance(V, Z)