var
a:array[1..200,1..200] of integer;
b:array[1..200] of integer;
i,j,n,m,q,l,w,e,r:integer;
begin
readln(n,m,q);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=(i-1)*m+j;
for l:=1 to q do
begin
readln(w,e);
b[l]:=a[w,e];
r:=a[w,e];
for i:=e to m do
a[w,i]:=a[w,i+1];
for j:=w to n do
a[j,e]:=a[j+1,e];
a[n,m]:=r;
end;
for l:=1 to q do
writeln(b[l]);
end.