A = (-2.96, 3.24)
a: x = x(A)
b: y = y(A)
B_1 = Point(b)
c = Ray(A, B_1)
C_1 = Point(a)
d = Ray(A, C_1)
B = Point(c)
D = Point(d)
e = OrthogonalLine(D, d)
f = OrthogonalLine(B, c)
C = Intersect(e, f)
g = OrthogonalLine(C, f)
polígono1, a_1, e_1, f_1, d_1 = Polygon(A, D, C, B)
h: a_1 * d_1
texto1: "área= " + (LaTeX[d_1]) + " \times" + (LaTeX[a_1]) + "=" + (LaTeX[polígono1]) + "cm^2"