var n,m,c,nr,i,x:longint;
    a,a1,b,b1:array[1..10000] of byte;
    f,g:text;
begin
     assign(f,'garaj.in');
     assign(g,'garaj.out');
     reset(f);
     rewrite(g);
     read(n,m);
        for i:=1 to n div 2 do begin
                               read(a[i],b[i]);
                               c:=c+b[i];
                               end;
        for i:=(n div 2)+1 to n do begin
                            read(a1[i],b1[i]);
                            c:=c+b1[i];
                            end;
     c:=trunc(c/n)+1;
     for i:=1 to n div 2 do
              if b[i]<c then inc(nr);
     for i:=n div 2 to n do
              If b1[i]<c then inc(nr);
     write(g,c,' ',nr);
     close(f);
     close(g);
end.