For10. дано целое число n (> 0). найти сумму 1+1/2 +1/+1/n

Var n,i:integer;
sum:real;
begin
writeln('Введите N= ');
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln('Сумма равна ',sum);
end.