import Random-- Funo para ler um nmero e retorn-loleInt :: IO (Int)leInt = do putStr "Digite um valor inteiro: " readLn-- Ler dois nmeros e imprimir o MDCmenumdc = do putStrLn "a ?" a Integermdc a 0 = amdc a b = mdc b (mod a b)-- Ler um nmero e imprimir a lista de 0 a nlista::IO ()lista = do y