højde = 3.35 (slider from 0 to 10, step 0.01)
B: (0, højde)
C: (20 - højde - højde, højde)
D: (20 - højde - højde, 0)
A = (0, 0)
areal, a, b, c, d = Polygon(A, B, C, D)
afstandAB = Distance(A, B)
TekstAB: "\left| " + (Name[A]) + (Name[B]) + "\right| = " + afstandAB
afstandBC = Distance(B, C)
TekstBC: "\left| " + (Name[B]) + (Name[C]) + "\right| = " + afstandBC
afstandCD = Distance(C, D)
TekstCD: "\left| " + (Name[C]) + (Name[D]) + "\right| = " + afstandCD
omkreds: afstandAB + afstandBC + afstandCD