a = 5 (slider from 0 to 10, step 0.1)
b = 3.2 (slider from 0 to 10, step 0.1)
A = (0, 0)
d: 2 * sqrt(a * b)
B: (d, 0)
C: (0, a)
D: (d, b)
c = Circle(C, a)
e = Circle(D, b)
f = Line(A, B)
distanceCA = Distance(C, A)
TexteCA: Name[C] + (Name[A]) + " \, = \, " + distanceCA
distanceDB = Distance(D, B)
TexteDB: Name[D] + (Name[B]) + " \, = \, " + distanceDB
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " \, = \, " + distanceAB