Вычисление с точностью.

[kcah]

Помогите написать программу. (Картинка, там вводится ещё n, т.к. в условии забыли написать)
У меня есть программа, но препод пригнорил её. Помогите исправить или может есть у кого какие варианты?

var
n,c,b,k,f,e,a:integer;
p,x,s,z,eps:real;
begin
read(n);
read(x);
read(eps);
c:=1; e:=n; z:=x/2; s:=0; p:=1; k:=-1; f:=n;
while n>1 do begin
c:=c*(n*(n-1));
n:=n-2;
end;
while e>1 do begin
z:=z*x/2;
e:=e-1;
end;
while abs(p)>eps do begin
k:=k+1;
if (k=0) or (k=1) then b:=1 else b:=b*k;
if k<>0 then begin z:=z*x*x/4; c:=c*(k+f); end;
if k mod 2=0 then a:=1 else a:=-1;
p:=p*(a/(b*c))*z;
s:=s+p;
end;
Write(s);
end.