a = 0.98 (slider from 0 to 2, step 0.01)
A = Intersect(xAxis, yAxis)
B: (0, 10 * a)
C: (2 * π * a, 0)
D: (x(C), y(B))
poly1, b, d, c, a_1 = Polygon(B, D, C, A)
E = Midpoint(b)
F = Midpoint(c)
G: (x(E), y(E) + a)
H: (x(F), y(F - a))
e = Circle(G, E)
f = Circle(H, F)
Textepoly1: "Aire " + (Name[B]) + (Name[D]) + (Name[C]) + (Name[A]) + " = " + poly1
airee = Area(e)
Textee: "Aire = " + airee
airef = Area(f)
Textef: "Aire = " + airef