Proceso ALGORITMO
    //DECLARACIÓN
    Definir x1,x2 como real;
    Definir a,b,c como entero;
    //asignación
    Leer a;
    escribir a;
    Leer b;
    Escribir b;
    Leer c;
    Escribir c;
    //proceso
    discriminante=(b^2)-(4*a*c);
    si (a<>0) Entonces
        si (discriminante>0) Entonces
            x1=(-b+rc((b^2)-4*a*c))/(2*a);
            x2=(-b-rc((b^2)-4*a*c))/(2*a);
            escribir "la raiz cuadratica 1 es=",x1;
            escribir "la raiz cuadratica 2 es=",x2;
        Sino
            Escribir "imaginario";
        FinSi
    Sino
        Escribir "indeterminado";
    FinSi
FinProceso