Posuvníkem nastav požadovanou velikost strany pravidelného pětiúhelníka.  

posuvník = 2.81 (slider from 0 to 3, step 0.001)
A_1 = (-1.02, 2.96)
B_1 = Point(Circle[A_1, posuvník])
b = Segment(A_1, B_1)
pentagon, a_1, b_1, c, d, e, C, D, E = Polygon(A_1, B_1, 5)
A = (-1.04, 1.86)
B = Point(Circle[A, posuvník])
a = Segment(A, B)
vzdalenostFG = Distance(A, B)
TextFG: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + vzdalenostFG
Textmnohoúhelník1: "Obsah = " + pentagon + ""