Задание #5 (for)

uses crt;
var a,n,k: integer;

begin
write('a= '); readln(a);
write('n= '); readln(n);
writeln;
   for k:= 1 to n do begin
   writeln('a^',k,'= ', exp((k)*ln(a)));
   end;
end.