main = do
  [a,b,c,d] <- map read . words <$> getLine :: IO [Int]
  if d == 10 then
    putStrLn "Impossible"
    else do
    putStrLn "Possible"
    print $ sum $ zipWith (*) (replicate b 50 ++ replicate a 100) (concat $ [replicate 100 (2^i) | i<-[0..]])