Someone

main = do
        putStrLn "The base? "
        base <- readLn 
        putStrLn "The Height? "
        height <- readLn 
        putStrLn ("The area of that triangle is " ++
                show (base * height / 2.0))