2. Напишите программу, которая разделяет делители данного числа nпробелом в строке. Воспользуйтесь процедурой. Входящие данныеВыходящие данные61 2 36​

Язык программирования не указан. Напишу на Haskell.

• import Text. Read ( readMaybe )
• main :: IO ()
• main = do
• putStr "Введите число: "
• k <- getInt
• printList $ divisors k
• where
• divisors :: Int -> [Int]
• divisors x = [y | y <- [1. . x], x `mod` y == 0]
• getInt :: IO Int
• getInt = unJust . readMaybe <$> getLine
• unJust :: Maybe a -> a
• unJust Nothing = error "Incorrect input"
• unJust (Just x) = x
• printList :: Show a => [a] -> IO ()
• printList = putStrLn . unwords . fmap show