{* Последовательность 1+1/2+1/3+...+1/k *}

Unit Z_SUMMA7;
Interface
Implementation
Begin
 writeln('При каком количестве слагаемых последовательности их сумма 1+1/2+1/3+...+1/k превысит 5?');
End.

Program z_summa7;

Uses z_summa7.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  sum : real;
  k   : integer;
Begin
  clrscr; {* Очищаем экран *}
  sum := 0;
  k := 0; {Цикл поиска количества слагаемых, при которых сумма   данной последовательности превысит 5}
  While 5 > sum Do
  Begin
    inc(k); {* Прибавим к k единицу *}
    sum := sum + 1 / k;
  End;
  writeln('Количество слагаемых равно ', k);
  readln; {* Приостановка программы. Ожидание Enter *}
End.