[Паскаль][Циклы][Бесконечная сумма][Объяснение]

[BackSlash]

И снова привет)
Написал программу:

var i:integer;
var S,S_func,x,R:real;
begin
writeln('Enter x');
readln(x);
if (x>=-3.14) AND (x<= 3.14) then
begin
R:=1;{Pervuy 4len r9da}
S:=R;
i:=1;
while R> 1e-5 do
begin
inc(i);
R:=R*sqr(x)/((i-1)*2*(i*(2-1)));
S:=S+R;
end;
S_func:=sin(x)/x;
writeln('Summa r9da',S:12:5);
writeln('Provero4na9 Funkci9',S_func:12:5);
end
else
writeln('X ne udovletvor9et usloviu');
readln;
end.

Но она, как я понимаю неправильно считает.
Ибо значения Функции проверки и полученного результата должны быть равны.(Я прав?)
А они очень разнятся.
Наверное ошибка где-то в коэффициенте

[Mad_Cat]

(i*(2-1))

не проще было просто i написать?

[BackSlash]

Сообщение от Mad_Cat

не проще было просто i написать?

Зачем?
У меня скорее всего неправильно написан коэффициент расчёта.
Помогите исправить.
В чём ошибка?