A = Point(yAxis)
B = Point(xAxis)
H = (0, 4)
a = Line(H, xAxis)
c = Circle(A, 5)
D_1, D = Intersect(c, a)
b = Line(A, D)
d = Line(B, b)
C = Intersect(a, d)
Vieleck1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + Vieleck1
e = OrthogonalLine(B, b_1)
E = Intersect(e, b)
abstandEB = Distance(E, B)
TextEB: "\overline{" + (Name[E]) + (Name[B]) + "} \, = \, " + abstandEB