Простейший цикл, вычислить значение суммы с точностью 2 знака после запятой - Pascal ABC

Формулировка задачи:

Даны целые числа а и 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.

Код к задаче: «Простейший цикл, вычислить значение суммы с точностью 2 знака после запятой - Pascal ABC»

textual
var a,n,i:integer;
    sum:real;
begin
writeln('Введите a=');
readln(a);
if a=0 then
 begin
  write('Сумма не определенп, деление на 0');
  exit
 end; 
writeln('Введите n=');
readln(n);
sum:=0;
for i:=1 to n do
sum := sum+1/power(a,i);
writeln(sum:0:2);
end.

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ