import Data.List

main = do
	getLine
	item <- getContents >>= return . map length . group . sort . concat . map (map (read::String->Int) . words) . lines
	print $ sum (map (`div`2) item) + div (sum $ map (`mod`2) item) 4