Чтобы найти сумму ряда 1 + 1/2 + 1/3 + ... + 1/N для натурального числа N, мы можем использовать простой алгоритм, который включает в себя следующие шаги:

1. Инициализировать переменную для хранения суммы, например, sum = 0.
2. Создать цикл, который будет проходить от 1 до N.
3. Внутри цикла добавлять к сумме значение 1/i, где i - текущий номер итерации.
4. После завершения цикла вывести значение суммы.

Теперь давайте рассмотрим два варианта программы на Паскале: один с циклом "до", а другой с циклом "пока".

program SumSeriesDo;
var
  N, i: integer;
  sum: real;
begin
  sum := 0;
  write('Введите натуральное число N: ');
  readln(N);
  i := 1;
  // Цикл "до"
  repeat
    sum := sum + 1 / i;
    i := i + 1;
  until i > N;
  
  writeln('Сумма ряда 1 + 1/2 + 1/3 + ... + 1/', N, ' = ', sum:0:4);
end.

program SumSeriesWhile;
var
  N, i: integer;
  sum: real;
begin
  sum := 0;
  write('Введите натуральное число N: ');
  readln(N);
  i := 1;
  // Цикл "пока"
  while i <= N do
  begin
    sum := sum + 1 / i;
    i := i + 1;
  end;
  
  writeln('Сумма ряда 1 + 1/2 + 1/3 + ... + 1/', N, ' = ', sum:0:4);
end.

В обоих вариантах программы мы сначала запрашиваем у пользователя значение N, а затем рассчитываем сумму ряда, используя соответствующий цикл. Результат выводится с точностью до четырех знаков после запятой.