A = Intersect(xAxis, yAxis)
B = (8, 4)
C = (1, 9)
Vieleck1, c, a, b = Polygon(A, B, C)
d = Line(C, xAxis)
e = Line(B, yAxis)
D = Intersect(d, e)
f = Line(D, yAxis)
g = Line(D, xAxis)
E = Intersect(yAxis, g)
F = Intersect(xAxis, f)
h = Segment(E, D)
i = Segment(D, F)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + Vieleck1