Программа на языке Паскаль

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