quadratic <- function(a, b, c){ if (a==0){ return(“Try different values”) } d <- ((bb - 4a*c)**0.5) if (d > 0) { x1 <- (-b + d)/(2a) x2 <- (-b - d)/(2a) return(sprintf(“The two real roots are: %s and %s”, x1, x2)) } else if (d == 0) { x1 <- -b / (2*a) return(sprintf(“The root is: %s”, x1)) } }