lista1 = Sequence(Segment[(s, 0), (s, 2)], s, 1, 10)
polígono1: {Polygon[(0, 0), (10, 0), (10, 2), (0, 2)]}
lista2 = Sequence(Segment[(0, s), (10, s)], s, 1, 2)
A = Point(Segment[(0, 0), (10, 0)])
B = Point(Segment[(0, 0), (0, 2)])
polígono2: {Polygon[(0, 0), A, (x(A), y(B)), B]}
texto1: "" + (x(A))
texto2: "" + (y(B))
texto3: "Área = " + (x(A)) + " x " + (y(B)) + " = " + (x(A) * y(B)) + " unidades cuadradas"
f = Segment(B, B - (0.4, 0))
polígono3, g, h, i, j = Polygon((-1 * 0.4, y(B) - 0.3), (-1 * 0.4, y(B) + 0.3), (-1 * 1.2, y(B) + 0.3), (-1 * 1.2, y(B) - 0.3))
a = Segment(A, A - (0, 0.4))
polígono4, c, d, e, b = Polygon((x(A) - 0.4, -1 * 0.4), (x(A) - 0.4, -1), (x(A) + 0.4, -1), (x(A) + 0.4, -1 * 0.4))
lista3: {Segment[A, (x(A), y(B))], Segment[B, (x(A), y(B))]}
k = Segment((0, 0), A)
l = Segment((0, 0), B)