var
  x,y : array [1..100] of real;
  x1,x2,x3,x4,y1,y2,y3,y4 : real;
  n,i,k : longint;
begin
  for i:=1 to 2 do
  readln(x[i],y[i]);
  for i:=1 to 2 do
  writeln(x1[i]+4:0:1,' ',y1[i]-4:0:1);
  writeln(x2[i]+4:0:1,' ',y2[i]-4:0:1);
end.