# Como curiosidade, deixo aqui uma forma de verificar se
# o número digitado é um ano válido, ou seja, maior que
# zero. Se não for, o usuário terá que digitar novamente.
# Além disso, se o usuário digitar um número com decimal,
# o programa ignora (as.integer) o decimal.
# Essa forma ainda não é perfeita pois o usuário pode digitar
# algo que não é um número, por exemplo banana.

ano <- as.integer(as.numeric(readline("Digite um ano: ")))
cat("O ano digitado foi:",ano,"\n")
while (ano <= 0) {
  print("Você digitou um ano que não existe.")
  ano <- as.integer(as.numeric(readline("Digite um ano: ")))
  cat("O ano digitado foi:",ano,"\n")
}

# Agora que o ano é maior que 0 e inteiro, verifica.
if (ano %% 400 == 0) { 
    print("Esse ano é bissexto")
} else {
    if (ano %% 100 == 0) {
        print("Esse ano não é bissexto")
     } else {
         if (ano %% 4 == 0) {
            print("Esse ano é bissexto")
         } else {
           print("Esse ano não é bissexto")
      }
  }
}