A = Point(xAxis)
c = Circle(A, 6)
B = Intersect(c, yAxis, 1)
O = Intersect(xAxis, yAxis)
poly1, c_1, a, b = Polygon(A, B, O)
d = Distance(b, a)
perímetropoly1 = Perimeter(poly1)
Textopoly1: "Perímetro " + (Name[A]) + (Name[B]) + (Name[O]) + " = " + perímetropoly1