roots<-function(a,b,c){
    if(delta(a,b,c)>0){
        x1=(-b+sqrt(delta(a,b,c)))/(2*a)
        x2=(-b-sqrt(delta(a,b,c)))/(2*a)
        roots<-c(x1,x2)
        
        
    }
    else if(delta(a,b,c)==0){
        x=-b/(2*a)
        # print(x)
    }
    else{
        print("no real roots")
    }
}
delta<-function(a,b,c){
        (b^2-4*a*c)
}
a<-roots(1,2,3);
# print(a)
a