Простейший цикл

[Black_Shark_]

Даны целые числа а и N. Вычислить 1/a+1/pow(a,2)+1/pow(a,3)+1/pow(a,n) с точностью 2 знака после запятой.

Ребят я написал код вот:

Что тут неправильно помогите

var 
  a,n:integer;
  i,sum:real;
begin
  writeln('Введите a ',a);
  readln(a);
  writeln('Введите n ',n);
  readln(n);
  i := 1;
  while i <= n do
  begin
    sum := sum + (1 div (exp(ln(a) * i)));
    writeln(sum);
  end;
end.

[Poma][a]

1 div (exp(ln(a) * i))

1 / <что-то там>

[Аватар]

var i,n: Integer;
    a,sum,r: Real;
begin
  writeln('Введите a ');  readln(a);
  writeln('Введите n ');  readln(n);
  sum:=0; r:=1;
  for i:=1 to n do begin r:=r/a; sum:=sum+r; end;
  writeln(sum:12:2); readln;
end.

[Serge_Bliznykov]

Аватар, отлично! Просто красота! Респект!