Proceso Menu
    Definir ciclo,opcion,N_control,c1,c2,c3,c4,c5 Como Entero;
    Definir Nombre Como Caracter;
    Definir promedio Como Real;
    Para ciclo<-1 Hasta 3 Hacer
        Escribir 'MENU OPCIONES';
        Escribir '1. CALCULA PROMEDIO Y SI ES APROBADO';
        Escribir '0. PARA SALIR DIGITE 0';
        Escribir 'Digite una opcion: : ';
        Leer opcion;
        Segun opcion  Hacer
            1:
                Escribir 'introduce el numero de control y el nombre del alumno';
                Leer N_control,Nombre;
                Escribir 'introduce las 5 calificaciones';
                Leer c1,c2,c3,c4,c5;
                promedio<-(c1+c2+c3+c4+c5)/5;
                Escribir 'boleta de calificaciones con promedio';
                Escribir 'numero de control:',N_control,'Nombre de alumno: ',Nombre;
                Escribir 'CALIFICACIONES';
                Escribir '     ',c1;
                Escribir '     ',c2;
                Escribir '     ',c3;
                Escribir '     ',c4;
                Escribir '     ',c5;
                Escribir '     ';
                Escribir 'promedio final: ',promedio;
                Si promedio>=6 Entonces
                    Escribir 'APROBADO';
                Sino
                    Escribir 'REPROBADO';
                FinSi
            De Otro Modo:
                Escribir 'opcion erronea';
        FinSegun
    FinPara
FinProceso