Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.