Составить программу возведения числа а, введённого с клавиатуры, в степень n

Var a,n,x,i:integer;
begin
readln(a,n);
x:=1;
for i:=1 to n do x:=x*a;
writeln(a,'^',n,'=',x);
end.