Вычислить сумму бесконечного ряда с заданной точностью

[Alex95]

Помогите решить такую задачу:
20151210122832-1-1.jpg

[newerow1989]

const e=1e-5;
var s0,s1,x,st,f:real;
    i,fa:int64;
    zn:-1..1;
begin
   s1:=1;
   x:=2.5;
   st:=1;
   fa:=1;
   i:=0;
   zn:=1;
   Repeat
      s0:=s1;
      i:=i+2;
      zn:=-zn;
      st:=st*x*x;
      fa:=fa*i*(i+1);
      s1:=s1+zn*st/fa;
   Until Abs(s1-s0)<e;
   Writeln(s1:5:6);
   f:=sin(x)/x;
   Writeln(f:5:6);
   Readln;
end.

Сойдет?