35_36_OSP2012

function campur(n : integer) : integer;
begin
 //writeln('campur n=',n);
 campur := n * n;
 writeln('campur =',campur);
end;

function aduk(x,y,z : integer) : integer;
begin
    if (y = 0) then
    begin
        //writeln('y=0');
        aduk := 1;
        writeln('aduk=1');
    end
        else if (y mod 2 = 0) then
            begin
              //writeln('else 1 x=',x,';y=',y,';z=',z);
              aduk := campur(aduk(x,y div 2,z)) mod z;
              writeln('else 1 aduk=',aduk,';x=',x,';y=',y div 2,';z=',z);
            end
            else
               begin
                //writeln('else 2 x=',x,';y=',y,';z=',z);
                aduk := ( (x mod z) * aduk(x,y-1,z) ) mod z;
                writeln('else 2 aduk=',aduk,';x=',x,';y=',y-1,';z=',z);
               end;
    end;

var
    a,b,c : integer;

begin
    readln(a,b,c);
    writeln(aduk(a,b,c));
end.