x = %v

a = %v cm

b = %v cm

k = 1 (slider from 0.25 to 6, step 0.01)
A = (-1, -4)
B: A + (4.0 * k, 0.0)
C: A + (0.0, 3.0 * k)
D: A + (4.0 * k, 3.0 * k)
polígono1, a, b, d, c = Polygon(A, B, D, C)
Textopolígono1: "Área = " + polígono1 + " cm²"
lista1 = Sequence(Segment[A + (t, 0.0), A + (t, b)], t, 1.0, 4.0 * k)
lista2 = Sequence(Segment[A + (0.0, t), A + (a, t)], t, 1.0, 3.0 * k)