import Data.Bool

main = do
  [n,k] <- map read . words <$> getLine
  as <- map read . words <$> getLine
  putStrLn $ bool "IMPOSSIBLE" "POSSIBLE" (getDiff n k as)

getDiff n k as
  | mod k d == 0 && k <= maximum as = True
  | otherwise = False
  where
    d = foldr1 gcd as