Submission #10514012

Source Code Expand

var
n,m,p,s:qword;
begin
readln(n,m,p);
s:=1;
for i:=1 to p do s:=s*n mod m;
writeln(s);
end.

Submission Info