a=input("a=");
b=input("b=");
c=input("c=");
delta=b^2-4*a*c;
if delta<0 then
  disp("Pas de racine");
end;
if delta==0 then
  x=-b/(2*a);
  disp("Une seule racine : "+string(x));
end;
if delta>0 then
  x1=(-b-sqrt(delta))/(2*a);
  x2=(-b+sqrt(delta))/(2*a);
  disp("Deux racines : "+string(x1)+" et "+string(x2));
  end
