var
  n,p1,p2,p3,t,min,i,j,k,l:longint;
  x,y,z,a:array[0..1000]of longint;

begin
  assign(input,'olympic.in'); reset(input);
  assign(output,'olympic.out'); rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(x[i],y[i],z[i]);
  min:=maxlongint;
  for i:=1 to 100 do
   for j:=1 to i do
    for k:=1 to j do
    begin
      for l:=1 to n do
      a[l]:=x[l]*i+y[l]*j+z[l]*k;
      t:=0;
      for l:=2 to n do
      if a[l]>a[1] then inc(t);
      if t<min then
      begin
        min:=t;
        p1:=i;
        p2:=j;
        p3:=k;
      end;
    end;
  writeln(p1,' ',p2,' ',p3);
  close(input);
  close(output);
end.