Дано действительное a. Найти: наименьшее натуральное число n, такое что 1+1/2+.+1/n > a

program Project1;
var
  n: integer; { Переменная для организации цикла и вычисления члена ряда}
  sum: real; { Переменная для хранения значения суммы}
  a: integer; { Переменная для хранения значений аргументов}
begin
  write('Введите значение аргумента A: ');
  readln(a);
  sum:= 0;         { Установка переменных в начальное состояние}
  n:= 0;
  repeat
    inc(n);       { Приращение аргумента}
    sum:= sum + 1/n;  { Вычисление суммы }
  until sum > a;   {Цикл с постусловием. Как только sum > a вычисление прекращается}
  writeln('Значение числа N: ',n); { Вывод ответа в консоль}
  readln;
end.