main :: IO ()
main = do
  num <- getLine
  putStrLn $ solve (read num :: Int)

solve :: Int -> [Char]
solve n = show ans ++ " " ++ show (n - ans)
  where
    ans = n `div` 2