program Premier_Degre;
var
A, B : real;
begin
write('entrez les coefficients A et B : ');
readln(A,B);
if A=0 {évaluation de la condition}
then
if B=0
then
writeln('Indéterminé !')
else
writeln('Impossible !')
else writeln('La solution est : ',-B/A:10:3);
end.