记录编号	84589	评测结果	AAAAAAAAA
题目名称	取余运算	最终得分	100
用户昵称	甘罗	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2013-12-16 17:53:28	内存使用	0.17 MiB

var
a,c,b,p,k:longint;
begin
assign(input,'dmod.in');
assign(output,'dmod.out');
reset(input);
rewrite(output);
readln(b,p,k);
a:=b mod k;
for c:=2 to p do
begin
a:=(a*(b mod k))mod k;
if a=b mod k then break;
end;
if c<>p then begin
a:=1;
if p mod(c-1)=0 then for c:=1 to c-1 do
a:=(a*(b mod k))mod k else
for c:=1 to p mod(c-1) do
a:=(a*(b mod k))mod k;
end;
writeln(a);
close(input);
close(output);
end.