Составить программу вычисления a^n

Держи и удачи!
Uses crt;
Var a,n,i:integer;
Begin
readln(a,n);
for i:=1 to n do a:=a*a;
writeln(a);
End.