Grundkante  a = 10 E
Höhe = 8 E

A = (-5, -3)
B = (5, -3)
a = Segment(A, B)
C = (0, 5)
b = Segment(C, A)
c = Segment(C, B)
D = Point(b)
d = OrthogonalLine(D, a)
e = Line(D, a)
E = Intersect(c, e)
f = OrthogonalLine(E, a)
F = Intersect(d, a)
G = Intersect(f, a)
g = Segment(D, F)
h = Segment(D, E)
i = Segment(E, G)
poly1, d_1, e_1, g_1, f_1 = Polygon(D, E, G, F)
Textpoly1: "Fläche " + (Name[D]) + (Name[E]) + (Name[G]) + (Name[F]) + " = " + poly1
abstandEG = Distance(E, G)
TextEG: abstandEG + ""
abstandDE = Distance(D, E)
TextDE: abstandDE + ""