Паскаль
Решите с помощью рекурсии(функцией) задачу: x/2+x/3+...x/n
СРОЧНО

Var x,s:real; n:integer;
function sum(a:real;k:integer):real;
begin
if kgt;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