#Calculation
result_a <- (5*4)*(4*5)-56
result_a
## [1] 344
result_b <- 23-1*(8-12)
result_b
## [1] 27
result_c <- 56/8*(3+4)
result_c
## [1] 49
result_d <- 45-5*8+(8+9)
result_d
## [1] 22
#Vector
a <-as.vector(c(2,5,6,7))
b <-as.vector(c(1,0,9,8))
c <-as.vector(c(6,5,8,3))