Дано натуральное число N. Вычислить: S= 1+1/2+1/3+1/4+...+1/N. (программа Паскаль)

var
  res:real;
  i,n:integer;
begin
  readln(n);
  res:=1;
  for i:=2 to n do
    res:=res+1/i;
  writeln(res)
end.