Programme de resolution du equation de second degre

Uses Wincrt ;
Var
  a,b,c,x,x1,x2 ,delta : Real;
 
Begin
  Write ('a= ');
  Readln (a);
  Write ('b= ');
  Readln (b);
  Write ('c= ');
  Readln (c);
  delta := b*b-4*a*c ;
 x := -c/b ;
 x1:=(-b-Sqrt(delta))/2*a;   x2:=(-b+Sqrt(delta))/2*a  ;
           If a=0 Then If b=0 Then If c=0 Then Write ('soluion dans IR = IR ')
  Else Write ('esemble vide') 
  Else Write(x)
  Else If delta <0 Then Write ('esemble vide')
  Else If delta =0 Then x := -b/2*a ;write(x) 
  Else Write (x1,x2);
End