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.