В паскале помогите решить пожалуйста

Спасибо

у боле правильный код

X=X-(sqr(x)*x/3*2)+(sqr(x)*sqr(x)*x/5*4*3*2)-(sqr(x)*sqr(x)*sqr(x)*x/7*6*5*4*3*2)+(sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/9*8*7*6*5*4*3*2)-(sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/11*10*9*8*7*6*5*4*3*2)+(sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/13*12*11*10*9*8*7*6*5*4*3*2)

var  f: real; x :integer;begin  //Ввод  writeln ('введите x');  readln (x); //решениеf:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800);  {f:=Power(x,2);} //вывод writeln ('f = ', f);  end.