ChatGPT Conversation :

A_1 <- matrix(c(1,2,3,4,5,6), nrow=2, byrow=TRUE)
B_1 <- matrix(c(7,8,9,10), nrow=2, byrow=TRUE)

A_2 <- matrix(c(1,2,3,4), nrow=2, byrow=TRUE)
B_2 <- matrix(c(5,6,7,8), nrow=2, byrow=TRUE)

A_3 <- matrix(c(1,0,2,-1,3,1), nrow=2, byrow=TRUE)
B_3 <- matrix(c(2,1,0,1,3,2), nrow=3, byrow=TRUE)
b1 <- c(7,8)
b2 <- c(9,10)

a1 <- c(1,4)
a2 <- c(2,5)
a3 <- c(3,6)

c1 <- c(b1 %*% a1, b1%*%a2, b1%*%a3)
c2 <- c(b2 %*% a1, b2%*%a2, b2%*%a3)
C <- matrix(c1, c2,  nrow= 2, ncol=3)

C
##      [,1] [,2] [,3]
## [1,]   39   54   69
## [2,]   39   54   69
# verify solution : 
B_1 %*% A_1
##      [,1] [,2] [,3]
## [1,]   39   54   69
## [2,]   49   68   87