циклы pascal

[loctar]

Даны: действительное число а, натуральное число n. Вычислить:
S=1/a+1/(a^2)+1/(a^4)+...+1/(a^(2*n-2)
пытался сделать сам, пару недель назад, но до сих пор немного не понимаю

var n,x,i: integer ;
s,a,g: real ;
begin
readln(a,n);

for i := 2 to n do

 begin
 s:= (1/((exp( (2*i-2) * ln (a) )))) ;
 writeln(s);
 end;
g:=  (( а вот тут не знаю , мне теперь нужно все эти S из циклы вытащить и Сложить а потом еще + 1/a ))



readln;
end.

[Stilet]

for i := 1 to n do s:= s+1/exp(2*i*ln (a)) ; writeln(s);

Это если я не опшибаю.

[loctar]

это : типо вытащили s и сложили ?

[Mad_Cat]

Это если я не опшибаю.

только S надо проинициализировать

s:=1/a;

фтопку экспоненты и логарифмы только умножение только хардкор

b:=sqr(a);
s:=1/a;
a:=b;
for i := 2 to n do
begin
s:=s+1/a;
a:=a*b;
end;

5
6
0.241666666496 // by Stilet
0.2416666624 // by Mad_cat

вопрос только в том у кого итерация плавает
Либо у стилета одна лишняя, либо у меня одной не хватает
upd у стилета 1 лишняя ибо при n=8, последнее слагаемое 1/(a^14), а в посте #2 1/(a^16)

[loctar]

благодарю вас от всей души