Дано натуральное число n . вычислите s=1/3^2+1/+1/2(2*n+1)^2

Var n,i: integer;
    s: real;
begin
   write('задайте n:  ');
   readln(n);
   s:=0;
   for i:=1 to n do
     s:=s+1/((2*i+1)*(2*i+1));
   writeln('сумма ряда равна:  ',s:10:7);
end.