Ecrire une algorithme qui resoudre une équation de 1ere degré

PROGRAM Eq_1er_degre;

VAR a, b : REAL;

BEGIN

WRITELN(‘Résolution de ax + b = 0’);

WRITE(‘Introduisez a: ‘);

READLN(a);

WRITE(‘Introduisez b: ‘);

READLN(b);

IF a=0 THEN IF b=0 THEN WRITELN(‘Equation indéterminée.’)

ELSE WRITELN(‘Equation impossible.’)

ELSE WRITELN(‘x = ‘, -b/a:5:2)

END.