A = (1, 1)
B = (8, 1)
C = (9, 5)
D = (2, 5)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
e = OrthogonalLine(D, a)
E = Intersect(e, a)
h_a = Segment(D, E)
α = Angle(B, E, D)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + Vieleck1