Comprobar

¡Muy bien, enhorabuena!

No es correcto, inténtalo de nuevo

A = (-3, 8)
pol, a, b, c, d, e, g = Polygon(A, A + (10, 0), A + (10, -4), A + (20, -4), A + (20, -12), A + (0, -12))
S3 = Point(pol)
S2 = PointIn(pol)
S1 = Point(pol)
candidato: {S1, S2, S3}
sol: {A + (10, -2), A + (8, -2), A + (8, -12)}
resuelto: candidato ≟ sol ∨ Reverse[candidato] ≟ sol
visible = false
f = PolyLine(S1, S2, S3)
cua1 = Sequence(Segment[A + (s, 0), A + (s, -12)], s, 1, 10)
cua2 = Sequence(Segment[A + (s + 10, -4), A + (s + 10, -12)], s, 1, 10)
cua3 = Sequence(Segment[A + (0, -s), A + (10, -s)], s, 1, 4)
cua4 = Sequence(Segment[A + (0, -s - 4), A + (20, -s - 4)], s, 1, 7)