salut tout le monde , voila j'ai voulu faire un programme pour resoudre automatiquement des équations de second degrés.
Quand je compile le programme il ne m'affiche aucune erreur , mais quand j'execute ça m'affiche (inactive c:\TPW\NONAME00.exe ) Donc voila j'aimerais un petit coup de pouce pour savoir ou se trouve la faille. merci.
voici mon programme.

Program equation ;
Uses wincrt ;
var
a , b , c , x , y , delta : real ;
Begin
writeln ('Donner trois nombres , a , b et c : ') ;
write ('a = ');read ( a ) ;
write ('b = ');read ( b ) ;
write ('c = ');read ( c ) ;
If a + b + c = 0
then
x:= 1 ;
y := c/a ;
end.
begin
else if a - b + c = 0
then
x := -1
y := -c/a
end
begin
else delta := SQR ( b ) - 4 * a * c
x := ( - b - delta ) / 2 * a
y := ( -b + delta ) / 2 * a
End
Writeln ( ' les solutions sont ' , x , y ) ;
End.

Voila merci. Je sais que j'ai un peu abusé des begin/end ça viens surement de la.