Dynamic color trace

P: (5, 3)
reg: {(5, 3)}
pol = PolyLine(reg)
verSeg = false
seg = Segment(reg(1), reg(2))
texto1: "Path length:  " + pol + "
Number of vertices:  " + (Length[reg]) + ""