program jj;
var f:text;
    i,n,min,max,j,k,nr:longint;
    x,y:array[1..100000] of longint;
begin
 assign(f,'cadrane.in');
 reset(f);
 readln(f,n);
 for i:=1 to n do readln(f,x[i],y[i]);
 close(f);
 assign(f,'cadrane.out');
 rewrite(f);
 max:=-1;
 for i:=1 to n do
   begin
     min:=n+1;;
     for j:=1 to n do
       begin
       nr:=0;
       for k:=1 to n do
       begin
         if ((x[k]<=x[i])and(y[k]<=y[j]))or((x[k]>=x[i])and(y[k]>=y[j]))then nr:=nr+1;
       end;
       if nr<min then min:=nr;
       end;
     if max<min then max:=min
   end;
   write(f,max);
 close(f);
end.