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

Program abc;

var
  n, i: integer;
  s: real;

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