Вычисли сумму s=n∑k=1 k+1/k*k+1, если значение n вводит пользователь. если n=10

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

Пример:
n = 10
S = 3.24339971608009