program SummaRyada;

var
i, n: integer;
summa: real;

begin
write('Введите количество элементов ряда: ');
readln(n);

summa := 0;

for i := 1 to n do
begin
summa := summa + 1/i;
end;

writeln('Сумма ряда: ', summa);
end.