C = Point(xAxis)
A = Intersect(xAxis, yAxis)
e = Segment(A, C)
f = LineBisector(e)
M = Intersect(f, e)
r1 = Circle(M, 2.5)
B = Intersect(r1, f, 1)
D = Intersect(r1, f, 2)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
s = LineBisector(d)
E = Intersect(s, d)
r2 = Circle(M, E)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + Vieleck1