Задача о справедливости равенства!, Помогите исправить, пожалуйста!:=) Опции

[Olchik]

Люди! Я написала программу на Паскале, но она как-то странно работает. Я не понимаю в каком месте ошибочка. Помогите,ПОЖАЛУЙСТА!
Вот условие задачи:
Численно убедиться в справедливости равенства, для чего для заданного значения аргумента х вычислить левую его часть и разложение, стоящее в правой части, с заданной погрешностью e. Оценить число итераций, необходимых для достижения заданной точности.
равенство:
sinx=x(1-(x*x/(pi*pi))(1-(x*x/4(pi*pi))...(1-(x*x/((n-1)*(n-1)*pi*pi)))....

Вот так вот....
Моя программа:

Program RGZ3;
Uses crt;
var
    x,Eps,a,b,y,P:real;
    n:integer;
begin
  clrscr;
    write('Задайте значение аргумента х=');
    readln(x);
    write('Введите погрешность е=');
    readln(Eps);
      P:=x;
      y:=sin(x);
      n:=2;
    repeat
          a:=((n-1)*(n-1))*pi*pi;
          b:=1-((x*x)/a);
          n:=n+(n-1);
          P:=p*b;
    until  ABS(y-p)<=Eps;
        if  ABS(y-p)<=Eps then write('Равенство справедливо')
            else write('Равенство не справедливо');
            readln;
             end.

Заранее ОГРОМНОЕ СПАСИБО!:=)

Сообщение отредактировано: Lapp - 20.11.2007 7:34