Паскаль решите с рекурсии(функцией) : x/2+x/3+/n

Var x,s:real; n:integer;
function sum(a:real;k:integer):real;
begin
if k>1 then sum:=sum(a,k-1)+a/k;
end;
begin
writeln('x = ');
readln(x);
writeln('n = ');
readln(n);
writeln('sum = ',sum(x,n));
end.

Пример:
x = 6
n = 4
sum = 6.5