let () =
  Scanf.scanf "%d\n" @@ fun n ->
  let d = Array.to_list (Array.init n @@ fun _ -> Scanf.scanf "%d\n" @@ fun d -> d) in
  let ans = List.length (List.sort_uniq compare d) in
  Printf.printf "%d\n" ans