{* Задача 280 *}

Unit ZADACH280;
Interface
Implementation
Begin
 writeln('Вычислить сумму 1+1/2+1/3+1/4+.....1/n. ');
End.

Program zadach280;

Uses zadach280.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  s  : real;
  s1 : real;
  i  : integer;
  n  : integer;
Begin
  clrscr; {* Очистка экрана *}
  writeln('введите кол-во n');
  readln(n);
  s := 1;
  For i := 2 To n Do {* Увеличиваем i от 2 до n с шагом 1 *}
  Begin
    s := s + (1 / i);
  End;
  writeln(s : 5 : 2);
  readln; {* Ждем подтверждения пользователя *}
End.