Equation second ordre Algo

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
 X<- b*(-1)/(2*a);
 Ecrire("Solution : ",X);
fsi
Fin