Дано целое число N (> 0). Найти сумму 1 + 1/2 + 1/3 + … + 1/N — Pascal(Паскаль)

Program For10;

var
  n: integer;
  temp: real;
  i: integer;

begin
  temp := 0;
  write('Enter n:');
  readln(n);
  for i := 1 to n do
  begin
    temp := temp + (1 / i);
  end;
  writeln('Summa = ', temp);

end.