Запрограмувати обчислення суми ряду: s=1-x^(3)+x^(5)-x^(7)++x^(2*n+1). значення n та x вводяться з консоля. в паскаль

program k;

var x:real;

n:integer

function f(y:real,j:integer):real;

begin

f:=1

for k:=1 to j do begin

f:=f*y;

end;

end;

begin

readln(x,n);

s:=1;

for i=1 to n do begin

s:=s+f(-1,i)*f(x,2*i+1)

end;

writeln(s);

end.