Ответ:

Объяснение:

var S : real;

var i, n : integer;

BEGIN

write ('Vvedite n');

readln (n);

S := 0;

for i:=1 to n

S := S + i/(i+1);

writeln ('S := ', S);

END.