Составьте программу, которая находит сумму чисел, обратных числам целым числам от 1 до N, т.е. S=1/1+1/2+1/3+...+1/N.

program abc;var  n, i: integer;  s: real;beginwrite('Введите количество чисел: ');  readln(n);  for i := 1 to n do    s := s + 1 / i;  write('Сумма обратных чисел = ', s);end.