encuesta_UNAD seudocodigo en pseint

Seudocódigo.
Algoritmo encuesta_UNAD

	Definir edad, carrera, actividad_extracurricular   Como Entero
	Definir sumaedad, CanEstudiantes, promedioedad, Estudiantes_promedio_alto, grupoa, grupob, promedio_academico como real
	edad<-1
	CanEstudiantes<-1
	grupoa<-0
	grupob<-0
	Estudiantes_promedio_alto<-0
	sumaedad<-0
	Escribir "Encuesta estudiantes UNAD"
	Mientras edad!=0 hacer
		Escribir "Encuestado numero ", CanEstudiantes
		Escribir sin saltar "Edad"
		Leer edad
		Escribir “Pertenece al programa Ingeniería de sistemas: "
		Escribir sin saltar "1-sí. 2-no"
		Leer carrera
		Escribir sin saltar "Promedio académico: “
		Leer promedio_academico

		Escribir "Actividad extracurricular: "
		Escribir "1-Equipo de futbol”
		Escribir "2-Grupo cultural”
		Escribir "3-Ninguna"
		Leer actividad_extracurricular
		CanEstudiantes<-CanEstudiantes+1
		Si edad>=16 & edad<=25 & carrera=1 & actividad_extracurricular=1 entonces
			grupoa<-grupoa+1
		Sino
			Si edad>=18 & edad<=30 & actividad_extracurricular=2 entonces
				grupob<-grupob+1
			FinSi

		FinSi
		Si promedio_academico>4 entonces
			Estudiantes_promedio_alto<-Estudiantes_promedio_alto+1
		FinSi
		sumaedad<-sumaedad+edad

	FinMientras

	promedioedad<-sumaedad/ (CanEstudiantes-2)

	Escribir "Estudiantes encuestados: ", CanEstudiantes-2
	Escribir "Estudiantes del Grupo A: ", grupoa
	Escribir "Estudiantes del Grupo B: ", grupob
	Escribir "Estudiantes con promedio académico superior a 4: ", Estudiantes_promedio_alto
	Escribir "Promedio de edad de los estudiantes: ", promedioedad
FinAlgoritmo