R Nacitanie Cisel

precitajCislo <- function()
{
  n <- readline(prompt="Zadaj svoj vek: ")
  n <- as.integer(n)
  if (is.na(n)){
    n <- precitajCislo()
  }
  return(n)


}

print(precitajCislo())