module Main where
    import Data.List
    import Control.Monad

    main = do
        input<-getInputs
        if length (filter isTri [x+y|x<-[0,input!!0],y<-[0,input!!1]])>0 then
            putStrLn "Possible"
        else 
            putStrLn "Impossible"

    isTri  x =and [x>0,mod x 3 == 0]

    read' s = read s ::Integer

    getInputs = do
        line <- getLine
        let inputs = map read' (words line)
        return inputs

    getLines n = do
        lines <- (replicateM n getLine)
        return lines
