Input := p[t_] = {5 Sin[2/5 t], 5 Cos[2/5 t]};
Input := stoptime = t/.FindRoot[p[t][[1]] == 5,{t,3}][[1]]//N
Output = 3.92655
Input := ParametricPlot[p[t],{t,0, time},AspectRatio->Automatic]
Output = -Graphics-