Дано вещественное число А и целое число N(>0). Вывести 1+А+А2+А3+…+AN — Pascal(Паскаль)

var
sum,a:real;
i,n:integer;
begin
repeat
readln(n);
until n>0;
readln(a);
sum:=1;
for i:=1 to n do
begin
 sum:=sum+(exp(i*ln(a)));
end;
writeln(sum);
end.