TAOMANG Pascal

var    n,a,m,lt,s:int64;
    w:array[1..1000000] of longint;
    i:longint;

procedure taomang;
begin
    lt:=1;
    for i:=1 to n do
    begin
        lt:=((lt mod m)*(a mod m)) mod m;
        w[i]:=lt +1;
    end;
end;

begin
    assign(input,'taomang.inp');reset(input);
    assign(output,'taomang.out');rewrite(output);
    read(n, a, m);
    taomang;
    for i:=1 to n do s:=s+w[i];
    writeln(s);

end.