Даны действительное число а и натуральное число п. Вычислить: S=(1/a)+(1/(a*a))+(1/(a*a*a*a))+…+(1/a^2n-2) — Pascal(Паскаль)

var
a,i,n:integer;
b,sum:real;
begin
writeln('a and n');
readln(a,n);
b:=1;
sum:=0;
for i:=1 to n do
  begin
    sum:=sum+b;
    b:=b/(a*a);
  end;
writeln('sum= ', sum:4:2);
readln;
end.