module Main where

import IO (BufferMode (..), hSetBuffering, stdout)

main = do
  hSetBuffering stdout NoBuffering
  
  putStr "Kuinka monta numeroa syotat? "
  n <- readLn
  
  let mkAction i = putStr ("Syota numero " ++ show i ++ "/" ++ show n ++ ": ") >> readLn
  let readActs = map mkAction [1 .. n]
  numbers <- sequence readActs
  
  let average = sum numbers / fromIntegral n
  putStrLn ("Keskiarvo: " ++ show average)