Program Exercice03Q05;

Var 
    a, b, c, delta, x1, x2 : Real;

Begin
	WriteLn('Ce programme résoud une équiation de deuxième degré');
	WriteLn('Donnez les coeffcients (a, b, et c) :');
	ReadLn(a);
	ReadLn(b);
	ReadLn(c);
	
	If(a = 0)Then
		WriteLn('Ceci est une équation de premier degré')
		{ Vous pouvez reécrire le programme Exercice03Q04 ici }
	Else
	Begin
		delta := b * b - 4 * a * c;
		If(delta < 0)Then
			WriteLn('Aucune solution réelle')
		Else If(delta = 0)Then
		Begin
			x1 := -b / (2 * a); { Les parenthèses sont nécessaires ici }
			WriteLn('Solution double : ', x1:5:2);
		End
		Else
		Begin
			x1 := (-b - sqrt(delta))/(2 * a); { même remarque } 
			x2 := (-b + sqrt(delta))/(2 * a); { même remarque } 
			WriteLn('Première solution : ', x1:5:2);
			WriteLn('Deuxième solution : ', x2:5:2);
		End;
	End;
	
End.