Question

Помогите, Решить в Паскале:
S=1/(1+1)+1/(1+2)+...1/(1+n)

Answer 1

Program w;
Var i,n: integer;
S: real;
Begin
writeln('Введите число повторений');
readln(n);
for i:=1 to n do S:=S+1/(1+n);
writeln(S);
End.

Answer 2

оператор i повторяется, пишет :Program1.pas(8) : Встречено ':=', а ожидался оператор