Proceso promedio
definir lab1,lab2,parcial,a,b,c,d,e Como Real;
definir nombre como caracter;
e<-0;
Mientras e<3 Hacer
Escribir "Nombre del Estudiante: ";
leer nombre;
Escribir "Ingrese nota del Laboratorio1: ";
leer lab1;
escribir "Ingrese nota del Laboratorio2: ";
leer lab2;
escribir "Ingrese nota del Parcial: ";
leer parcial;
a<-lab1*0.30;
b<-lab2*0.30;
c<-parcial*0.40;
d<-(a+b+c);
Escribir "Nota Final: ",d;
Si d=10 Entonces
Escribir "Estudiantes con Maxima Nota: ",d;
Sino
Si d<6 Entonces
Escribir "Estudiantes con Minima Nota: ",d;
Sino
Si d>=7 Entonces
Escribir "Estudiantes con Nota Mayores o Iguales a 7: ",d;
FinSi
FinSi
FinSi
e<-e+1;
FinMientras
FinProceso