import Control.Applicative
import Data.Foldable

gcdmul :: [Int]->Int
gcdmul (x:[]) = x
gcdmul (x:xs) = foldl' gcd x xs

solver :: Int->[Int]->Bool
solver k as
    |k > (maximum as) = False
    |otherwise = k `rem` (gcdmul as) == 0
    
myshow True = "POSSIBLE"
myshow False = "IMPOSSIBLE"
 
main :: IO ()
main = do
    [_, k] <- map read . words <$> getLine
    as <- map read . words <$> getLine
    putStrLn $ myshow $ solver k as

