import System.IO (hFlush, stdout)

main :: IO ()
main = do
  putStrLn "0 0"
  hFlush stdout
  d1 <- readLn
  putStrLn "100000 0"
  hFlush stdout
  d2 <- readLn
  let ay = (d1 + d2 - 100000) `div` 2
  let ax = d1 - ay
  putStrLn $ unwords $ map show $ [ax, ay]
  hFlush stdout
  getLine
  return ()