Программа вычисления функции косинуса

CONST Eps=0.00001; {Точность вычислений}
VAR x,sum,n,add:real;
BEGIN
  WriteLn;
  WriteLn('Вычисление функции Cos(X) через разложение в ряд.');
  WriteLn('Точность вычислений задана константой.');
  Write('Введите аргумент X ');
  ReadLn(x);
  add:=1;
  sum:=add;
  n:=0;
  while Abs(add)>Eps do
  begin
    n:=n+2;
    add:=-add*x*x/(n*(n-1));
    sum:=sum+add;
  end;
  WriteLn('Cos(',x,')=',sum);
  WriteLn('Проверка               ',Cos(x));


WriteLn('=========================');
WriteLn('Stud-Prog.narod.ru - помощь студентам по программированию');
WriteLn('StudDraw.narod.ru - помощь студентам по черчению');
WriteLn('English-Translator.narod.ru - английский язык, рефераты, переводы');
WriteLn('+7-(904)-601-65-28 Александр Евгеньевич');
ReadLn;
END.