C = (3, 6)
A = Intersect(xAxis, yAxis)
B = (6, 0)
a = Segment(A, C)
b = Segment(B, C)
c = Segment(A, B)
D = Point(c)
d = OrthogonalLine(D, c)
E = Intersect(d, a)
e = OrthogonalLine(E, d)
F = Intersect(e, b)
f = OrthogonalLine(F, e)
G = Intersect(c, f)
Vieleck1, d_1, e_1, f_1, g = Polygon(D, E, F, G)
TextVieleck1: "Fläche " + (Name[D]) + (Name[E]) + (Name[F]) + (Name[G]) + " = " + Vieleck1
Text1: "Fläche " + (Name[D]) + (Name[E]) + (Name[F]) + (Name[G]) + " = " + Vieleck1
T: Distance[D, E] Distance[D, G]
U: Distance[D, E] 2 + Distance[D, G] 2
H: (Distance[D, G], 0)
h = OrthogonalLine(H, xAxis)
P: (x(H), T)