# Enter your code here. Read input from STDIN. Print output to STDOUT
data <- readLines(file("stdin"), warn = FALSE) 
d <- unlist(strsplit(data[2], " "))
d <- sort(as.numeric(d))

out <- function(v) {
   uniqv <- unique(v)
   uniqv[which.max(tabulate(match(v, uniqv)))]
}
cat(out(d),"\n")