znamenko <- function(cislo){
    if (cislo < 0) { 
        print("zaporne")
        return(-1)
    }
    else if (cislo > 0) {
        print("kladne")
        return(1)
    }
    else {
        print("nula")
        return(0)
    }
}