#fat <- function(n){
#  fatorial <- 1
#  
#  for (i in(1:n)){ 
#    fatorial <- fatorial*i
#  
#  }
#  return (fatorial)
#}
#
#n <- as.numeric(readline("digite n:"))
#if (n > 0 && n<=15){
#  for (i in (1:n)){
#    print(fat(i))
#  }
#}



#classifica <- function(nota){
#  situacao <- ""
#  if (nota >= 5){
#    situacao <- "Aprovado"
#  }else
#  {
#    if (nota >= 3){
#      situacao <- "Recuperação"
#    }else
#    {
#      situacao <- "Reprovado"
#    }
#  }
#  return (situacao)
#}
#
#n <- as.numeric(readline("digite n: "))
#for (i in(1:n)){
#  nota <- as.numeric(readline("digite a nota: "))
#  print(classifica(nota))
#}



#for (i in(1:9)){
#  for (j in(1:9)){
#    print(paste0(i, "x", j, "=", i*j))
#  }
#}