Equation

salut qui peut m'aider a ecrire un programme en pascal 7.0 qui resoudre une equation du deuxiemme degre {ax^2+bx+1=0}
si a=0 on se remene a une equation du premier degre
si a est differnt de zero :
on calcule le discriminant delta={b^2-4*a*c}
si delta >0 l'equation a 2 racines reels distinctes que l'on calcule avec (-b+racine de delta)/(2*a)
et(-b-racine de delta)/(2*a)
si delta =0 les deux formules ci dessus sont encore valables et fournisse 2 valeurs egales -b/(2*a)
si delta <0, les deux formules contenant la racine de delta ne sont plus valables dans les reels et il faut passer a lensemble pour obtenire des reponces
-b/(2*a)+i racine delta/(2*a)
-b/(2*a)-i racine delta /(2*a)
i*i=-1