Equation du premier degré

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.