A = (5, 3)
B = (5, 6)
c = Circle(A, B)
C = Intersect(c, xAxis, 1)
a = Segment(C, B)
B' = Rotate(B, 1*°, A)
α = Angle(B, A, B')
b = Segment(A, B')
contornoc = Circumference(c)
areac = Area(c)
Textoc: "Área de " + (Name[c]) + " = " + areac
polígono1, b', b_1, a_1 = Polygon(B, A, B')
Textopolígono1: "Área de  " + (Name[B]) + (Name[A]) + (Name[B']) + " = " + polígono1