организация циклов

[_ROBERT_]

Ребята можете помочь доделать программу.
(Для заданного значения аргумента функции вычислить с заданной точностью значение функции,представленной в виде бесконечного ряда. Для проверки результата предусмотреть в программе вычисление функции по контрольной формуле.)

[PASCAL]var
x,a,b,c,d,r,p,j:real;
it, n: integer;
begin
writeline ('введите значение x<1');
readln (x);
x:=ABS (x);
if x>1 then
brgin
writeln('неверное значение x');
end
else
begin
writeln ('введите количество членов ряда n');
readln (it);
if it<1 then
begin
wririte ('введите число n>0')
end
else
begin
a:=1; b:=1; c:=1; d:=1; r:=(1);
for n:=1 to it do
begin
if ODD (n) then a:=-1;
if NOT ODD (n) then a:=x;
b:=
c:=
d:=
r:=
writeln ('r=',r);
end;
p:=ln()
writeln('результат проверки=',p);
readln;
end;
end;
end;[/PASCAL]