Var
   c,d,i,j,k,m,n,r,xr,yr: longint;
   x,y: array [1..1600] of longint;

Begin
     readln(input, r, c);
     readln(input, n);
     for i:= 1 to n do
         readln(input, x[i], y[i]);
     m:= -1;
     for i:= 1 to c do
         for j:= 1 to r do
             begin
             d:= abs(x[1] -j) + abs(y[1] -i);
             for k:= 2 to n do
                 if (abs(x[k] -j) + abs(y[k] -i) < d) then
                    d:= abs(x[k] -j) + abs(y[k] -i);
             if (d > m) then
                begin
                m:= d;
                xr:= j;
                yr:= i;
                end;
             end;
     writeln(output, xr, ' ', yr);
End.