> seconddegree:= proc(a,b,c)
if a=0 then if b=0 and c=0 then print ('infinite solutions')
elif b=0 and c<>0 then print ('impossible')
elif b<>0 and c<>0 then print (' one solution',x=-(c)/(b))fi;
delta:=b^(2)-4 *a*c;
elif if delta=0 then print('double solution',x=-b/(2 a))
elif delta >0 then print ('exist two solutions',x1=((-b+sqrt(delta...