# create a vector of numbers
numbers <- c(2, 5, 7, 9, 10)

# use a nested if statement to determine if each number is even or odd
for (i in 1:length(numbers)) {
  if (numbers[i] %% 2 == 0) {
    if (numbers[i] > 5) {
      print(paste(numbers[i], "is even and greater than 5"))
    } else {
      print(paste(numbers[i], "is even and less than or equal to 5"))
    }
  } else {
    if (numbers[i] > 5) {
      print(paste(numbers[i], "is odd and greater than 5"))
    } else {
      print(paste(numbers[i], "is odd and less than or equal to 5"))
    }
  }
}