Equation second ordre Algo V2

Algorithme Equation

variables : a,b,c,Delta,X : entier;
Debut
Ecrire("Donnez a");
Lire(a);
Ecrire("Donnez b");
Lire(b);
Ecrire("Donnez c");
Lire(c);
Delta<-(b*b)-(4*a*c);
si(Delta>=0)
alors
        X<-((-1)*b+sqrt(Delta))/2*a;
        Ecrire("solution numero un : ",X);
         X<-((-1)*b-sqrt(Delta))/2*a;
        Ecrire("solution numero deux : ",X);
sinon
 Ecrire("Pas de solution");
fsi
Fin