Pascal/Turbo Pascal - ayuda por favor con este problemita

hola programadores les agradeceria si me pueden ayudar con este problemita que me esta rompiendo el coco :S pues bien ahi les va:

es sobre el calculo de una serie la serie es A= 1/x + 1/x(al cuadrado) + 1/x(al cubo)....+hasta 1/x(a la n).. donde x es un numero leido por teclado... pls aiudenme T_T

Hola. Luis Miguel.
No es mi fuerte las matematicas, no obstante intentaré ayudarte.
El algoritmo que te paso lo hago así entendiendo que lo que llamas "A" es la variable que contendrá el valor de la operación.
Yo creo que lo importante sería que entendieras y comprendieras el algoritmo, más que el hecho de resolver el problema que espero sea lo que pides.
Un saludo: Antonio



{$n+}
program Potencias;
uses crt;
var
A, X, X2 : extended;
n, i : integer;

begin
clrscr;
write('Introduce valor de "X": ');
readln(X);
writeln;
write('Introduce valor de "n": ');
readln(n);
A := 1/x;
X2 := X;

for i := 1 to n do
begin
X := X*X2;
A := A+(1/X);
end;
writeln;
writeln;
writeln('A = ',A:6:3)
end.

Perdona.
No lo hice bien al enviar la respuesta.