# Function to generate and print the multiplication table
multiplication_table <- function(num, limit = 10) {
  # Print the header
  cat("Multiplication Table for", num, ":\n")
  
  # Loop to generate the table
  for (i in 1:limit) {
    result <- num * i
    cat(num, "x", i, "=", result, "\n")
  }
}

# Example: Generating multiplication table for 7
num <- 7
multiplication_table(num)