Вычислить сумму ряда чисел 1+1/2+1/3 + ... + 1/n, где n вводится пользователем

Программа нахождения суммы ряда 1 + 1/2 + ... + 1/n

Для выполнения программы нужно ввести целое число n.

program calculate;

var s: real;

n, i:integer;

begin

S : = 0;

Write ('Введите целое число n = ');

readln (n);

for i : = 1 to n do s : = s + 1/i;

writeln ('Сумма ряда S = ', s:4:4)

end.