Язык программирования паскал. дано вещественное число а и целое число n (> 0). вывести 1+а+а3+…аn.

Var n,a,j:integer;
begin
readln (a);
readln(n);
for j:=0 to n do
writeln (power (a,j));
end.