сказали ошибка не могу найти (паскаль)

[coolmancool2000]

var a, b, c, i, n :integer;
s :real;
begin
writeln ('число');
readln (n);
for i:=1 to n do
s:=s+i/(i+1);
writeln ('Сумма= ', s);
end.

[Aleksandr H.]

* вместо +

[coolmancool2000]

ошибка все ровно 0 выходит

[Аватар]

Если 0 много раз умножать на число от этого он 0 и останется. Да и умножать нужно на (2*i-1)/(2*i)

[coolmancool2000]

Можете формулу написать если не трудно?

[Аватар]

Дык уже прописал, читай внимательно

[newerow1989]

var n :integer;
    s :real;
begin
   writeln ('число');
   readln (n);
   s:=1;
   for i:=1 to n do
      s:=s*(i*2-1)/(i*2);
   writeln ('Сумма= ', s:1:8);
   Readln;
end.