Code:

program Kutije;
const
    MaxN = 10000;
var
  q, d, h: array [1.. MaxN] of LongInt;
    n, Sol, br: LongInt;
  f, g: Text;

  procedure InPut;
  var
      i: LongInt;
  begin
      {Assign (f, 'zad5.dat');
    Reset (f);}
    Read (n);
    for i := 1 to n do
        Read (d [i], h [i]);
    {Close (f);}
  end;

  procedure Quick_Sort (l, r: LongInt);
  var
      q, p, tmp, k, i, j: LongInt;
  begin
    if l < r then begin
          k := (l + r) DIV 2;
        i := l; j := r;
      p := d [k];
      q := h [k];
        repeat
        while (i < r) and (d [i] > p) or
            ((d [i] = p) and (h [i] > q)) do Inc (i);
        while (j > l) and (d [j] < p) or
            ((d [j] = p) and (h [j] < q)) do Dec (j);
            if i <= j then begin
                tmp := d [i]; d [i] := d [j]; d [j] := tmp;
                tmp := h [i]; h [i] := h [j]; h [j] := tmp;
              Inc (i); Dec (j);
            end;
        until i > j;
        Quick_Sort (l, j);
        Quick_Sort (i, r);
    end;
  end;

  function Find (p, k, x: LongInt): LongInt;
  var
      tmp: LongInt;
    begin
      if (k - p > 1) then begin
        tmp := (p + k) DIV 2;
      if (q [tmp] > x) then
          Find := Find (p, tmp, x)
      else
          Find := Find (tmp, k, x);
    end
    else
        if (x <= q [p]) then Find := p
      else Find := k;
  end;

  procedure Solve;
  var
    i, j: LongInt;
  begin
      Quick_Sort (1, n);

    q [1] := h [1];
    br := 1;
    for i := 2 to n do begin
        if h [i] >  q [br] then
          j := br + 1
      else
          j := Find (1, br, h [i]);
      q [j] := h [i];
      if j > br then br := j;
    end;
    Sol := br;
  end;

  procedure OutPut;
  begin
      {Assign (g, 'zad5.res');
    ReWrite (g);}
    WriteLn (Sol);
    {Close (g);}
  end;

begin
    InPut;
  Solve;
  OutPut;
end.