ESTRUCTURAS DE REPETICIÓN 

Proceso Pavel
        Definir Suma, N, C Como Enteros;
        Escribir "********************************";
        Escribir "1) FACTORIAL N"
        Escribir "2) Suma de los Números Naturales"
        Escribir "3) Serie (((N!)-N)/(N-1))"
        Escribir "4) Sumatoria de rc(N!/N+1)";
        Escribir "5) Tabla de Multiplicar 1 al 12"
        Escribir "********************************"
        Escribir "Ingrese una opción:"
        Leer OP
        Segun OP hacer 
            1:
                Escribir "Ingrese el enésimo término:";
                Leer N;
                //Valores Iniciales
                Factorial<-1;
                C<-1;
                Mientras (C<=N) Hacer
                    Factorial<-Factorial*C;
                    C<-C+1;
                Fin Mientras
                //IMPRIMIR
                Escribir "El Factorial de ", N, " es: ", Factorial;
            2:
                Escribir "Ingrese el enésimo término:";
                Leer N;
                //Valores Iniciales
                Suma<-0;
                C<-1;
                Mientras (C<=N) Hacer
                    Suma<-(Suma+C);
                    C<-C+1;
                Fin Mientras
                //IMPRIMIR
                Escribir "La suma de los ", N, " términos es: ", Suma;
            3:
                Escribir "Serie (((N!)-N)/(N-1))";
                Escribir "Ingrese el numero";
                Definir Serie Como Real
                Leer N;
                //Valores Iniciales
                Serie<-0;
                C<-1;
                Factorial<-1;
                Mientras (C<=N) Hacer
                    Factorial<-Factorial*C
                    C<-C+1;
                    Serie<-(Factorial-N)/(N-1)
                Fin Mientras
                //IMPRIMIR
                Escribir "La serie de ", N, " es:", Serie;
            4:
                Escribir " Sumatoria de rc(N!/N+1)"
                Escribir "Ingrese el numero"
                Definir serie como Real 
                leer N;
                //Valores Iniciales
                serie <-0
                C<-1
                Factorial<-1
                Mientras (C<=N) Hacer
                    Factorial<-Factorial*C
                    C<-C+1;
                    serie<-(rc((Factorial)/(N+1)))
                FinMientras
                //IMPRIMIR
                Escribir "La sumatoria de rc(N!/N+1) es:", serie;
            5:
                Escribir "Tabla de Multiplicar";
                Definir INICIAL, FINAL Como Entero;
                INICIAL = 5;
                FINAL = 10;
                Leer N;
                Escribir "Tabla del ", N, " :";
            
                C = INICIAL
                Mientras (C<=FINAL) Hacer
                    Escribir C, "*", N, "=", C*N;
                    C<-C+1;
                Fin Mientras
            De Otro Modo:
                Escribir "NO ES UNA OPCION";
        FinSegun
        

FinProceso