Author: OBMEP_srdg

B = (6, -1)
A = (2, 5)
C = (2, -2)
a = Line(A, C)
D = Point(a)
P = Point(Circle[D, 3])
c = Segment(D, P)
f = OrthogonalLine(P, a)
g = Circle(D, P)
F = Intersect(g, f, 2)
b = Segment(D, F)
k = Circle(P, 5)
J = Intersect(k, a, 2)
j = Segment(P, J)
l = Segment(J, F)
d = Segment(D, J)
e = Segment(P, F)
pol1, d_1, g_1, j_1, f_1 = Polygon(D, P, J, F)
texto2: "Vareta maior: " + d + "cm"
texto3: "Vareta menor: " + e + "cm"
texto1: "Área: " + pol1 + "cm²"
E = Intersect(d, e)
α = Angle(D, E, P)