1
2
3
4
5
6
7
8
9
10
11
12
Proceso algoritmo1
    Escribir Sin Saltar "Ingresa el valor de a:";
    Leer a;
    Escribir Sin Saltar "Ingresa el valor de b:";
    Leer b;
    Escribir Sin Saltar "Ingresa el valor de c:";
    Leer c;
    x1 <- (-b+RC(b*b-4.0*a*c))/2.0/a;
    x2 <- (-b-RC(b*b-4.0*a*c))/2.0/a;
    Escribir "Valor de x1: ", x1;
    Escribir "Valor de x2: ", x2;
FinProceso