Паскаль Решите с помощью рекурсии(функцией) задачу: x/2+x/3+...x/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