Pascal в последовательности сумм найти первую сумму, не превосходящую число В

[mrRastom]

Всем привет.

Дана следующая задача:

В последовательности сумм требуется найти первую сумму, которая не превосходит по величине число В.

1, 1+2/3, 1+2/3+3/4, ..., 1+2/3+3/4+...+(n-1)/n

Вначале я написал следующий код:

Uses crt;
Var b,k,n:real;

Begin
ClrScr;
  writeln('Введите число В:');
  write('B=');
  readln(b);
  writeln;
  
    n:=3;
    k:=1;
  
  while k<b do 
    begin
      k:=k+(n-1)/n;
      n:=n+1;
    end;
  writeln('Необходимая сумма:');
  write(k:0:2);
Readln;
End.

Но вот фраза "первую сумму" заставила меня усомниться в правильности. Правильно ли я понял, что программа должна показать только самую первую сумму в этой последовательности и, если это так, то что необходимо дописать в коде.

Заранее всем спасибо.

[mrRastom]

Обнаружил, что программа выдает неверный результат. Он больше числа В.
Теперь никак не могу понять, как сделать так, чтобы программа выдавала предыдущий результат?
Т.е. проблема в том, что, например, задано число b=5 и очередной раз, когда проверяется условие k<b, если k равняется к примеру 4.99, то результат перевалит за 5.
Что делать?

[Vanta11a]

Самый простой вариант - дополнительная переменная, которой присваивается значение B до рассчета очередного цикла.

[Летучий_СкилетиК]

найти первую сумму, которая не превосходит по величине число В

это значит сумма которая наиболее приближена к В и не превосходит ее.
так:

  while k<b do
    begin
      p:=k;
      k:=k+(n-1)/n;
      n:=n+1;
    end;
  write(p:0:2);

[mrRastom]

Vanta11a, Летучий_СкилетиК, спасибо вам огромное!