den <- function(cislo) {
    dny = c("pondeli", "utery", "streda", "ctvrtek", "patek", "sobota", "nedele")
    if(cislo > 7 | cislo < 1 | round(cislo) - cislo != 0){ 
        return(NA)
    }
    else return(dny[cislo])
}