GeometricScene[{{A.,B.,C.,D.,E.,F.,G.,H.,I.,J.},{a.,b.}},{Style[Line[{A.,B.,I.}],Red],Style[Line[{C.,D.}],Red],Style[Line[{E.,F.,J.}],Blue],Style[Line[{G.,H.}],Blue],EuclideanDistance[A.,B.]3EuclideanDistance[C.,D.]3a.,EuclideanDistance[E.,F.]3EuclideanDistance[G.,H.]3b.,EuclideanDistance[B.,I.]2EuclideanDistance[C.,D.]2a.,EuclideanDistance[F.,J.]2EuclideanDistance[G.,H.]2b.},{EuclideanDistance[A.,I.]5EuclideanDistance[C.,D.],EuclideanDistance[E.,J.]5EuclideanDistance[G.,H.],3a.+2a.(3+2)a.,3b.+2b.(3+2)b.}]