Помогите, пожалуйста
Напишите функцию sum вида function sum(n: integer): real, которая вычисляет и возвращает следующую сумму: 1+1/2+1/3...+1/n

var n,i:integer;s:real;function sum(n:integer):real;beginif n=1 then sum:=1 else sum:=(1/n)+sum(n-1);end;beginwriteln('n=');readln(n);writeln('sum=',sum(n));readln;end.