Comprobar

¡Muy bien, enhorabuena!

No es correcto, inténtalo de nuevo

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