Fibonacciho_posloupnost <- function(n) {
    if(n < 0 | round(n) - n != 0) return(paste("chybne cislo"))
    if(n == 0) return(0)
    if(n == 1) return(1)
    return(Fibonacciho_posloupnost(n - 1) + Fibonacciho_posloupnost(n - 2))
}