a <- matrix(seq(from = 1, to = 25), nrow = 5, ncol = 5)
b <- matrix(seq(from = 26, to = 50), nrow = 5, ncol = 5)
a * b