import Control.Monad
import qualified Data.ByteString.Char8 as BS
import Data.List
import Data.Maybe

readInt = fst . fromJust . BS.readInteger

readIntList = map readInt . BS.words

main = do
  n <- readLn
  [as, bs] <- transpose . map readIntList <$> replicateM n BS.getLine
  print $ solve n (sort as) (sort bs)

solve :: Int -> [Integer] -> [Integer] -> Integer
solve n as bs
  | odd n = bs !! div n 2 - as !! div n 2 + 1
  | otherwise = bs !! div n 2 + bs !! div (n - 1) 2 - as !! div n 2 - as !! div (n - 1) 2 + 1