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

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


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