Proceso mientras1
        Escribir "Elija opcion" 
        escribir "Opcion 1: Potencia ACTIVA (Pap )"
        Escribir "Opcion 2: Resistencia"
        Escribir "Opcion 3: Proyeccion "
        Escribir "Opcion 4: Ecuacion de la recta"
        leer opcion
        Segun opcion  Hacer
            opcion 1:
                Definir Pact, Pap, Preac como real
                Escribir "Ingrese la potencia reactiva"
                leer Preac;
                INICIAL = 1000
                FINAL = 2000
                Pact = INICIAL 
                Mientras (Pact <= FINAL) Hacer
                    Pap= rc(Pact^2+Preac^2);
                    Pact <- Pact + 100;
                    Escribir "La potencia activa es: ", Pact;
                    Escribir "La potencia aparente es:  " Pap;
                FinMientras
            opcion 2:
                Definir V, R, I Como Real;
                escribir "Ingrese I"
                leer I
                INICIAL = 100
                FINAL = 200
                V = INICIAL
                Mientras (V <= FINAL) Hacer
                    R <- V/I
                    V <- V + 10
                    escribir "Voltaje es: 100"
                    Escribir "La Resistencia es: ", R
                    Escribir "El Voltaje es: ", V
                FinMientras
            opcion 3:
                definir a, b, c como real
                escribir "Ingrese b "
                escribir "Ingrese c "
                leer b
                leer c
                INICIAL = 1
                FINAL = 2
                a = INICIAL
                Mientras (a<= 2) Hacer
                    Proy <- ((a*b)/b^2)*c
                    a <- a + 0.1
                    Escribir "Valor de a es: 2"
                    Escribir "Proy es: ", Proy;
                    Escribir "Valor de a es: ", a;
                FinMientras
            opcion 4:
                definir y1, x Como Real
                INICIAL = 0
                FINAL = 10
                x = INICIAL 
                Mientras (x <= 10) Hacer
                    y1 <- 4+3*x
                    x <- x + 0.3
                    Escribir "y1 es: ", y1;
                    Escribir " X es: ", x;
                FinMientras
            De Otro Modo:
                escribir "No es una opcion"
            Fin Segun
        FinProceso