Даны действительное число А и натуральное N. Вычислить S= 1/A + 1/A^2 .....+(1/A^N) с помощью функции. СРОЧНО!!!ПОМОГИТЕ

var N: integer;      A: real; { рекурсивная функция } function Sum(N: integer): real; begin if (N>0) then Result:=1/(exp(N*ln(A)))+Sum(N-1)  else Result:=0; end; { основная программа } begin   write('задайте N:  ');   readln(N);   write('задайте A:  ');   readln(A);   writeln('сумма ряда = ',Sum(N):10:6); end.