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

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

begin
write('a= '); readln(a);
write('n= '); readln(n);
writeln;
   k:=1;
   while k<n+1 do begin
   writeln('a^',k,'= ', exp((k)*ln(a)));
   k:=k+1;
   end;

end.