Extra opgave 2

t=Table[Normal[Series[Sin[x],{x,0,n}]],{n,0,16}];
Manipulate[Plot[{Sin[x],t[[i]]},{x,-Pi,Pi},PlotRange->{{-Pi,Pi},{-1,1}}, PlotLegends->{"sin(x)",t[[i]]}],{i,1,16,1}]