Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+...+1/

N, где N – натуральное число.

vari, n: integer;s: real;beginwrite('Введите n: ');readln(n);for i:=1 to n dos:=s+1/i;writeln(s);end.