Program Exercice03Q04;

Var 
    a, b, x : Real;

Begin
	WriteLn('Ce programme résoud l''equation a * x + b = 0');
	
	WriteLn('Donnez (a)');
	ReadLn(a);
	
	WriteLn('Donnez (b)');
	ReadLn(b);
	
	If(a <> 0)Then
	Begin
		x := -b/a;
		WriteLn('La solution de cette équation est :', x:5:2);
	End
	Else
	Begin
		If(b <> 0)Then
			WriteLn('Aucune solution')
		Else
			WriteLn('Tous les nombres réels (R)');
	End;
	
End.