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

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