{* Задача 512 *}

Unit ZADACH512;
Interface
Implementation
Begin
 writeln('Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N используя оператор цикла REPEAT.');
End.

Program zadach512;

Uses zadach512.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  S : real;
  N : integer;
Begin
  S := 0;
  N := 0;
  Repeat      N := n + 1;
    S := s + 1/n
  Until n > 1000;
  Writeln(s);
  Readln
End.