A = (-80, 10)
B = (-40, 10)
C = (-50, 40)
D = (-70, 40)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)
e = OrthogonalLine(D, a)
H = Intersect(e, a)
f = Segment(D, H)
distanzaAD = Distance(A, D)
TestoAD: "\overline{" + (Name[A]) + (Name[D]) + "} \, = \, " + distanzaAD
distanzaBC = Distance(B, C)
TestoBC: "\overline{" + (Name[B]) + (Name[C]) + "} \, = \, " + distanzaBC