H = (0, 2.5)
g = Line(H, xAxis)
A = Intersect(xAxis, yAxis)
B = Point(xAxis)
r1 = Circle(A, 6)
r2 = Circle(B, 5.5)
C = Intersect(r1, g, 2)
D = Intersect(r2, g, 1)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
e = Segment(D, B)
f = Segment(A, C)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + Vieleck1