input <- file('stdin', 'r')

a <- readLines(input, n=1)
b <- as.integer(readLines(input, n=1))
c <- as.double(readLines(input, n=1))

write(sprintf("TOTAL = R$ %.2f", b + (c * 0.15)), "")

Solve Salary with Bonus in r
Solve Salary with Bonus in r
