Proceso bucles_de_retencion_infinita
    Escribir "****************************************************************"
    Escribir "CASOS MULTIPLES";
    Escribir "****************************************************************"
    //DECLACION
    Definir N, C, SUMA Como Entero
    //ASIGNACION
    
    Escribir "INGRESE UN CASO";
    Escribir "1)SUMATORIA DE NUMEROS NATURALES N";
    Escribir "2)SUMATORIA DE NUMEROS IMPARES";
    Escribir "3)FACTORIAL N";
    Escribir "4)TABLA DE MULTIPLICAR (1 AL 12)";
    Escribir "5)SERIE N!/2*N+1";
    
    //PROCESO
    Leer CASOS
    Segun (CASOS) Hacer
        1:
            Escribir "SUMATORIA DE NUMEROS NTAURALES N";
            Escribir "INGRESE EL NUMERO DE TERMINOS";
            Leer N;
            
            //VALORES INICILES
            SUMA=0;
            C=1;
            Mientras (C<= N) hacer
                SUMA<-SUMA+C
                C<-C+1;
                
            FinMientras
            Escribir "EL RESULTADO DE SUMA ES=",SUMA;
        2:
            Escribir "SUMATORIA DE NUMEROS IMPARES 2*N-1";
            Leer N;
            
            SUMA_IMPAR=0;
            C=1;
            Mientras (C<= N) hacer
                SUMA_IMPAR<-SUMA_IMPAR+(2*C-1)
                C<-C+1;
                
            FinMientras
            Escribir "EL RESULTEADO DE SUMA IMPAR ES=", SUMA_IMPAR;
        3:
            Escribir "INGRESE EL ENESIMO TERMINO";
            Leer N;
            
            FACTOPRIAL<-1;
            C<-1;
            Mientras (C<= N) hacer
                FACTORIAL<-FACTORIAL*c                
                C<-C+1;
                
            FinMientras
            
            Escribir "EL RESULTADO DE FACTORIAL DE N  ES=", FACTORIAL;
        4:
            Escribir "TABLA DE MULTIPLICAR (DEL 1 AL 12)";
            Leer N;
            
            MULTIPLICACION=0;
            C=1;
            Mientras C<= N hacer
                MULTIPLICACION<-(C*N)
                C<-C+1;
                Escribir "EL RESULTADO DE LA MULTIPLICACION ES=", MULTIPLICACION;
            FinMientras
            Escribir "EL RESULTADO DE LA MULTIPLICACION ES=", MULTIPLICACION;
        5: 
            Escribir "SERIE N!/2*N+1";
            Definir SERIE como real;
            Leer N;
            
            SERIE=0;
            C=1;
            Mientras C<= N hacer
                FACTORIAL<-C*1
                SERIE<-SERIE+FACTOPRIAL/(2*C+1)
                C<-C+1;
                
            
            FinMientras
            Escribir "EL RESULTADO DE SERIE ES=", SERIE;
            
            
        De Otro Modo:
            Escribir "FUERA DE RANGO";
        Fin Segun
    
FinProceso