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

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

Исправил.

по решению верно, но елси взять n=2 ответ должен быть 0,83

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