Информатика. pascalabc.net (цикл for)дано целое число n (> 0). найти сумму 1+1/2+1/3++1/n

Begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do s:=s+1/i;
  Writeln('S=',s)
end.

Пример
n= 18
S=3.49510807819631