luogup1226取余运算||快速幂（数论）

输入b，p，k的值，求b^p mod k的值。其中b，p，k*k为长整型数。

var
        b,p,k,t:int64;
begin
        readln(b,p,k);
        write(b,'^',p,' mod ',k,'=');
        b:=b mod k;
        t:=1;
        while (p<>0) do
        begin
                if (p mod 2=1) then t:=t*b mod k;
                p:=p div 2;
                b:=(b*b) mod k;
        end;
        write(t);
end.