var
x,s:real;
n,i:integer;
begin
  write('Введите X: ');
  readln(x);
  write('Введите N: ');
  readln(n);
  s:=0;
  for i:= 1 to n do s:=s+1/(x+i);
  writeln('Сумма = ', s);
end.