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

Спасибо огромное!!!

Пожалуйста.

var x,s:real; n:integer;function sum(a:real;k:integer):real;beginif k>1 then sum:=sum(a,k-1)+a/k;end;beginwriteln('x = ');readln(x);writeln('n = ');readln(n);writeln('sum = ',sum(x,n));end.Пример:x = 6n = 4sum = 6.5