Quadrats

A = (3, 2)
B = (3, -2)
a_1 = Line(A, B)
b_1 = OrthogonalLine(B, a_1)
D = Point(b_1)
C = Point(a_1)
Polígon1, b, c, a = Polygon(C, B, D)
Q1, e, f, g, h, E, F = Polygon(C, D, 4)
Q2, i, j, k, l, G, H = Polygon(B, C, 4)
Q3, m, n, p, q, I, J = Polygon(D, B, 4)
α, β, γ = Angle(Polígon1)
text1: "Àrea de Q1  =  " + a + "²  =   " + Q1 + ""
text2: "Àrea de Q2  =  " + b + "²  =   " + Q2 + ""
text3: "Àrea de Q3  =  " + c + "²  =   " + Q3 + ""
d = false