program hm;
uses crt;
type typ=record
        obsadene:boolean;
        zakazane:boolean;
        end;
var n,k,l,i,p,x,y,q:integer;
var a:array [1..3,1..2500000] of typ;
procedure hop(x,y:integer);
begin
if p<>(((n*3)-k) div 2) then begin
 if a[x,y].zakazane=false then if a[x,y].obsadene=false then begin
 if y<>3 then begin
        if (a[x+1,y].obsadene=false) and (a[x+1,y].zakazane=false) then
           begin a[x,y].obsadene:=true;a[x+1,y].obsadene:=true;inc(p);hop(x,y+1);end;
        if (a[x,y+1].obsadene=false) and (a[x,y+1].zakazane=false) then
           begin a[x,y].obsadene:=true;a[x,y+1].obsadene:=true;inc(p);hop(x,y+1);end
        else if (a[x,y+1].obsadene=false) and (a[x,y+1].zakazane=false) then
           begin a[x,y].obsadene:=true;a[x,y+1].obsadene:=true;inc(p);hop(x+1,y);end;
              end;
                                                                end;
                             end
     else inc(q);
end;
begin
clrscr;
read (n);
read (k);
readln (l);
for i:=1 to k do begin
                read(x);
                readln(y);
                a[x,y].zakazane:=true;
                end;
q:=0;
hop(1,1);
q:=q mod l;
readln(q);
end.