Algorithme: résolution avec discriminant de ax^2 + bx + c = 0

Début
    Variable D, a, b, c : Entier
    D <- b^2-4ac
    Si D < 0:
        Ecrire("pas de solution")
    Sinon Si D = 0:
        Ecrire(-b/2a)
    Sinon:
        Ecrire(-b - rac(D)/2a)
        Ecrire(-b + rac(D)/2a)
    FinSi
Fin