Algoritmia - necesito hacer este diagrama de flujo en pseint

INICIO

	//inicializar variables

	s = 0: promedio_edad = 0

	suma_sueldo = 0: promedio_estatura = 0

	s_estatura = 0

	s_solteras = 0

	i = 0

	fin = 1

	mientras fin <> 0

		leer(nombre)

		si (nombre == '*')

			fin = 0

		sino

			leer(edad)

			s = s+edad

			leer(sueldo)

			suma_sueldo = suma_sueldo+sueldo

			leer(estatura)

			s_estatura = s_estatura+estatura

			leer(genero) //m = masculino, f = femenino

			leer(estado_civil)

			si (estado_civil == 's') y (genero = 'f')

				s_solteras = s_solteras+sueldo

			fin-si

			i = i+1

		fin-si

	fin-mientras

	promedio_edad = (s/i)

	promedio_estatura = (s_estatura/i)

	//imprimir resultados

	imprimir('Promedio de edad: ',promedio_edad)

	imprimir('La suma total de los sueldos es: ',suma_sueldo)

	imprimir('La estatura promedio es: ',promedio_estatura)

	imprimir('Total sueldo de mujeres solteras: ',s_solteras)

FIN