Вычисли сумму 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