import
System.IOimport Data.Fixed
main :: IO ()
main = do
hSetBuffering stdout NoBuffering
putStr "Enter a title ... "
title <- getLine
putStr "Enter amount ... "
amount <- readLn :: IO Int
putStr "Enter a price ... "
price <- readLn :: IO Centi -- Centi - число с двумя знаками после точки (Data.Fixed)
putStr "Enter a type of product (1 or 2) ... "
typeofprod <- readLn :: IO Int
putStrLn (if | typeofprod == 1 -> "it is one 1!"
| typeofprod == 2 -> "it is two 2"
| otherwise -> "I don't know such a number..." )
putStrLn $ "title " ++ title
putStrLn $ "amount " ++ show amount
putStrLn $ "price " ++ show price
putStrLn $ "typeofprod " ++ show typeofprod