Turbo pascal даны действительное число а, натуральное число n. вычислить: s = 1/a + 1/a^2 + 1/a^4 + … + 1/a^2n-2

Как в задании:
var a,an,s:real; n,i:integer;
begin
write('a = '); readln(a);
write('n = '); readln(n);
s:=1/a;
an:=1;
for i:=2 to n do
 begin
 an:=an*a*a;
 s:=s+1/an;
 end;
writeln('s = ',s);
end.

Пример:
a = 2
n = 4
s = 0.828125