Polinomio 2

PROGRAM polinomio;

  Var
     a, b, c: real; //Los coeficientes del polinomio.
     discriminante: real; //El discriminante.
     raiz1, raiz2: real; //Las ra°ces del polinomio.

  BEGIN
      //Pedimos al usuario el ingreso de datos y leemos los mismos.
    write('Ingrese los coeficientes separados por espacio: ');
    readln(a,b,c);

    //Verificamos que el coeficiente a sea no nulo.
    If a=0 then
       writeln('Usted no ha ingresado un polinomio de segundo grado.')
    else
    begin
       //Calculamos el discriminante.
       discriminante:= sqr(b)-4*a*c;

       //Tomaremos los tres caminos seg£n el valor discriminante.
       If discriminante=0 then
       begin
          //El polinomio tiene una £nica ra°z.
          raiz1:= -b/(2*a);
          writeln('El polinomio tiene una ra°z doble: ',raiz1:2:2);       end
       else
          If discriminante>0 then
          begin
         //El polinomio tiene dos ra°ces.
         raiz1:=(-b+sqrt(discriminante))/(2*a);
         raiz2:=(-b-sqrt(discriminante))/(2*a);

         writeln('El polinomio tiene dos ra°ces reales: ',raiz1:2:2,' y ',raiz2:2:2);
       end
       else
         writeln('No existen ra°ces reales.');
     end; //Fin de la instrucci¢n ELSE del IF principal.
END.