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

x-целое число ил вещественное

Целое

Его необходимо ввести с клавиатуры и решить данный пример

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.

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)