A = (-1, 5)
B = (-1, 1)
C = (7, 2)
poly1, c, a, b = Polygon(A, B, C)
D = Midpoint(c)
E = Midpoint(b)
F = Midpoint(a)
poly2, f, d, e = Polygon(D, E, F)
Textopoly1: "Area grande = " + poly1
Textopoly2: "Area pequeña = " + poly2
G = (6.4, 5)
H = (8.399999999999995, 5)
g = Segment(G, H)
text1: "Razón: " + poly2 + " /  " + poly1 + " = " + (poly2 / poly1)