поправьте меня если ^ это не указатель стпени, но если это степень то вот очень просто:

var a,x:extended; n,i:longint;
Begin
    read(x);
    read(n);
    a:=1;
    for i:=1 to n do
       a:=a*x;
    writeln(a:0:0);
end.