PRIVATE c2,c1,c0,racine1,racine2,err
racine1=0
racine2=0
err=.F.
input "Coefficient x2" to c2
input "Coefficient x1" to c1
input "Coefficient independent" to c0
IF c2=0
	?"Ce n'est pas un polynome de deuxieme degree"
else
	DO racines WITH (c2),(c1),(c0),racine1,racine2,err
	IF err
		?"Racines complexes"
	ELSE
		?"Racines:",racine1,racine2
	endif
ENDIF

PROCEDURE racines
PARAMETERS a,b,c,r1,r2,complexe
PRIVATE dis
	dis=b*b-4*a*c
	IF dis >= 0 
		r1=(-b+SQRT(dis))/(2*a)
		r2=(-b-SQRT(dis))/(2*a)
	ELSE
		complexe=.T.
	ENDIF
RETURN