Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/4+1/6… количество суммируемых членов ряда задается во время работы программы. турбо паскаль

Var n,i:integer;
      sum:real;
begin
  Write('n=');readln(n);
  sum:=1;
  for i:=2 to n do
    sum:=sum+1/i;
  Writeln(sum);
end.