var
  x,y : array [1..100] of real;
  x1,x2,y1,y2 : real;
  i,n,sum : longint;
begin
  readln(x1);
  readln(y1);
  readln(n);
  for i:=1 to n do
    readln(x[i], y[i]);
  for i:=1 to n do
    if y1<y2>y3
    then writeln(x[i]-x1:0:7,' ',y[i]-y1:0:7)
    else writeln(x[i]-x1:0:7,' ',y[i]-y1:0:7);
end.