Решите пожалуйста паскаль S=1/2+2/3+3/4+... +n/n+1
Циклический алгоритм пожалуйста :3

Var   S:real;   n:integer;BeginS:=0;Write('n = ');ReadLn(n);For n:= 1 to n do    S:=S+n/(n+1);WriteLn('S = ',S)End.