Составьте пожалуйста программу вычисления функции

begin
  var n:=ReadInteger('n=');
  var b:=ReadReal('b=');
  Writeln('S=',(b-1)*(Range(1,n).Select(i->1/(i+2)).Sum):0:5)
end.


n= 20
b= 2.37
S=3.00141