Вычислить сумму ряда

For k:=1 to n do
 sum:=sum+1/((2*k-1)*(2*k+1))

Const n=20;//количество членов ряда для вычисления суммы
Var sum:real;//сумма членов ряда
    k:integer;//переменная для цикла
Begin
    k:=0;//инициализируем переменную цикла
    Repeat
      inc(k);//увеличиваем на 1 переменную цикла
      //вычисляем очередной член ряда и прибавляем его к общей сумме
      sum:=sum+1/((2*k-1)*(2*k+1));
    Until k=n;//когда (k) станет равной n,выходим из цикла
    writeln('S = ',sum:0:6);
    writeln('1/2 = ',1/2:0:6);
    readln;
End.

var k,a,x,n: integer;
sum:real;
begin
a:=-1;
n:=10;
writeln('Ââåäèòå ÷èñëî õ>1');
readln(x) ;
for k:=0 to n do
sum:=a*(k+1)*1/(2*k+1)*x*(2*k+1);
sum:=sum+pi/2;
writeln(sum:1:3,' ',arctan(x)>sum);
readln;
end.

uses crt;
var x,t,s:real;
    n,k:integer;
begin
clrscr;
repeat
write('|x|>1 x=');
readln(x);
until abs(x)>1;
write('n=');
readln(n);
k:=0;
t:=-1/x;
s:=t;
for k:=1 to n do
 begin
  t:=-t/(x*x);
  s:=s+t/(2*k+1)
 end;
if x<0 then s:=-pi/2+s
else s:=pi/2+s;
writeln('s=',s:0:5);
writeln('arctg=',arctan(x):0:5);
readln
end.

t:=-t/(x*x);//смена знака очередного члена

k:=0;  //нулевой член ряда
t:=-1/x; //его значение
s:=t; //начальная сумма
for k:=1 to n do //считаем остальные
 begin
  t:=-t/(x*x); //меняем знак и делим на x^2=(-1)^(k+1)/x^(2k+1)
  s:=s+t/(2*k+1) //делим на 2k+1 и прибавляем
 end;

uses crt;
var n,i:integer;
    t,s:real;
begin
clrscr;
write('n=');
readln(n);
i:=1;  {первый член ряда}
t:=-1; {его значение числителя}
s:=t/2; {начальная сумма}
for i:=2 to n do {считаем остальные}
 begin
  t:=-t; {меняем знак}
  s:=s+t/(2*i) {делим на 2i и прибавляем}
 end;
write('S=',s:0:3);
readln
end.