// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!
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