Сколько слагаемых должно быть в сумме, чтобы эта сумма оказалась больше 3.7 - Pascal ABC

Формулировка задачи:

задача 1 сколько слагаемых должно быть в сумме 3 +1 / 4 +1 / 5 + .+1 / n чтобы эта сумма оказалась больше 3.7?

Решение задачи: «Сколько слагаемых должно быть в сумме, чтобы эта сумма оказалась больше 3.7»

Листинг программы

var
  i: integer;
  S: real;
  
begin
  S := 0;
  i := 3;
  while S < 0.7 do
  begin
    i := i + 1;
    S := S + 1 / i
  end;
  write('Ответ: ', i - 2)
end.

Объяснение кода листинга программы

В данном коде:

Объявляются три переменные: — i (целочисленная) — S (вещественная) —
Инициализируется переменная S значением 0, а переменная i значением 3.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной S не станет больше или равным 0.7.
Внутри цикла происходит: — увеличение значения переменной i на единицу — прибавление к переменной S значения 1/i (то есть значение переменной i, деленное на единицу)
После выхода из цикла while, выводится сообщение с ответом, равным i - 2. Таким образом, данный код решает задачу нахождения количества слагаемых, необходимых для получения суммы, большей или равной 3.7.