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

Var   S:real;   k:integer;BeginWrite('n = ');ReadLn(k);S:=0;For k:= 1 to k do    S:=S+(k+1)/(k*k+1);WriteLn('S = ',S);End.Пример:n = 10S = 3.24339971608009