main = do
  [n, k] <- map read . words <$> getLine :: IO [Int]
  a <- map read . words <$> getLine :: IO [Int]
  let d = foldl gcd 0 a
  putStrLn $ if any (\x -> x >= k && (x - k) `mod` d == 0) a then "POSSIBLE" else "IMPOSSIBLE"