快速幂

 1 var
 2   a:array[0..100] of longint;  3  n,i,j,k:longint;  4  ans:qword;  5 begin
 6  readln(n,k);  7   i:=k;  8   while i<>0 do begin
 9     inc(a[0]); 10     a[a[0]]:=i and 1; 11     i:=i shr 1; 12   end;ans:=1; 13   for i:=a[0] downto 1 do begin
14     ans:=ans*ans; 15     if a[i]=1 then ans:=ans*n; 16   end; 17  writeln(ans); 18 end.