let () = Scanf.scanf "%d %d %d\n" @@ fun n h w ->
  Printf.printf "%d\n" @@ List.length @@ List.filter (fun (a, b) -> h <= a && w <= b) @@
  Array.to_list @@ Array.init n @@ fun _ -> Scanf.scanf "%d %d\n" @@ fun a b -> a, b 

