Proceso SistemaNotas
	// --- Analisis del problema ---
	// Salidas:    	notas por curso, status, descTrimestre
	// Entradas:	actividades,parcial,proyecto,final
	// Auxiliares	i,suma,CANT_CURSOS
	// --- Diseńo del algoritmo ---
	Definir notaELL,notaPI,notaRazonFe,notaMate Como Entero;
	Definir elogicasll,progral,razonFe,mate Como Entero;
	Definir promedio,descTrimestre Como Real;
	Definir status Como Caracter;
	// Dimension de arreglos
	Dimension elogicasll(9);
	Dimension progral(9);
	Dimension razonFe(9);
	Dimension mate(9);
	// Ingreso de notas al sistema
	Escribir '--- Sistema de notas UDEO ---';
	Escribir 'Ingreso notas de Estructuras Logicas II';
	notaELL<-ingresoNotas(elogicasll);
	status<-statusCurso(notaELL);
	Escribir '';
	Escribir '---Resultado estructuras logicas II';
	Escribir 'Alumno obtuvo',notaELL,' pts. / ',status,'curso.';
	// Ingreso Y analisis de programacion I
	Escribir '';
	Escribir '';
	Escribir 'Ingreso notas de Programación I';
	notaPI<-ingresoNotas(progral);
	status<-statusCurso(notaPI);
	Escribir '';
	Escribir '---Resultado programación I ---';
	Escribir 'Alumno obtuvo ',notaPI,' pts. / ',status,' curso.';
	// Ingreso y analisis de Razon y Fe
	Escribir '';
	Escribir '';
	Escribir 'Ingreso notas de Razón y Fé';
	notaRazonFe<-ingresoNotas(razonFe);
	status<-statusCurso(notaRazonFe);
	Escribir '';
	Escribir '---Resultado Razón y Fé---';
	Escribir 'Alumno obtuvo ',notaRazonFe,' pts. / ',status,' curso.';
	// Ingreso y análisis de Matematica
	Escribir '';
	Escribir '';
	Escribir 'Ingreso nota de matematica';
	notaMate<-ingresoNotas(mate);
	status<-statusCurso(notaMate);
	Escribir '';
	Escribir '---Resultado estructuras logicas II';
	Escribir 'Alumno obtuvo ',notaMate,' pts. / ',status,' curso.';
	// Promedio del trimestre del alumno
	promedio<-promedioTrimestre(elogicasll,progral,razonFe,mate);
	Escribir '----- Analisis del trimestre';
	Escribir 'El promedio del trimestre es ',promedio;
	descTrimestre<-evaluarDesc(promedio);
	Escribir 'El alumno gano un descuento de ',descTrimestre,'Aplicable en el siguiente trimestre';
FinProceso

SubProceso suma=ingresoNotas (array)
	Definir i,suma Como Entero;
	suma<-0;
	Para i<-0 Hasta 5 Hacer
		Repetir
			Escribir 'Nota actividad #',i+1,'(0-5 pts.)' Sin Saltar;
			Leer array(i);
		Hasta Que array(i)>=0 Y array(i)<6
	FinPara
	Repetir
		Escribir 'Nota parcial (0-10 pts.);' Sin Saltar;
		Leer array(6);
	Hasta Que array(6)>=0 Y array(6)<11
	Repetir
		Escribir 'Nota proyecto (0-20 pts.)' Sin Saltar;
		Leer array(7);
	Hasta Que array(7)>=0 Y array(7)<21
	Repetir
		Escribir 'Notas final (0-40 pts.' Sin Saltar;
		Leer array(8);
	Hasta Que array(8)>=0 Y array(8)<41
	Para i<-0 Hasta 8 Hacer
		suma<-suma+array(i);
	FinPara
FinSubProceso

SubProceso status=statusCurso(notaFinal)
	Definir status Como Caracter;
	Si notaFinal>=61 Entonces
		status<-'Aprobado';
	Sino
		status<-'Reprobo';
	FinSi
FinSubProceso

SubProceso promedio=promedioTrimestre(arrayUno,arrayDos,arrayTres,arrayCuatro)
	Definir i,suma Como Entero;
	Definir promedio,CANT_CURSOS Como Real;
	suma<-0;
	CANT_CURSOS<-4;
	Para i<-0 Hasta 8 Hacer
		suma<-suma+arrayUno(i)+arrayDos(i)+arrayTres(i)+arrayCuatro(i);
	FinPara
	promedio<-suma/CANT_CURSOS;
FinSubProceso

SubProceso desc=evaluarDesc(promedioFinal)
	Definir desc Como Real;
	Si promedioFinal>=80 Y promedioFinal<=89 Entonces
		desc<-150.00;
	Sino
		Si promedioFinal>=90 Y promedioFinal<=100 Entonces
			desc<-200.00;
		Sino
			desc<-0.00;
		FinSi
	FinSi
FinSubProceso