program olympic;
var
  i,j,k,l:longint;
  n,m:longint;
  a:array[1..15,1..3]of longint;
  pj,py,pt:longint;
  ans:longint;
procedure suan(const x,y,z:longint);
var
  i,j,k,l:longint;
begin
  l:=0;
  k:=a[1,1]*x+a[1,2]*y+a[1,3]*z;
  for i:=2 to n do
  begin
    j:=a[i,1]*x+a[i,2]*y+a[i,3]*z;
    if j>k then inc(l);
  end;
  if l=0 then
  begin
    writeln(x,' ',y,' ',z);
    close(input);
    close(output);
    halt;
  end
  else
    if l<ans then
    begin
      ans:=l;
      pj:=x;
      py:=y;
      pt:=z;
    end;
end;
begin
  assign(input,'olympic.in');
  reset(input);
  assign(output,'olympic.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(a[i,1],a[i,2],a[i,3]);
  ans:=16;
  for i:=1 to 300 do
    for j:=1 to i do
      for k:=1 to j do
        suan(i,j,k);
  writeln(pj,' ',py,' ',pt);
  close(input);
  close(output);
end.