U=DSolve[{x''[t]==-x[t]-x'[t]/5,x[0]==1,x'[0]==0},{x},t]; 
S=Plot[Evaluate[x[t] /. U],{t,0,25}]
