Algoritmo detarea
	Definir x,c,total,creditos Como Entero
	x = 1
	total = 0
	c = 0
	Mientras x <> 0 Hacer
		Escribir "1 = Ingresar creditos"
		Escribir "0 = salir"
		leer x
		si x == 1 Entonces
			Escribir "INgresa el numero de creditos"
			leer creditos
			total = total + creditos
			si total <= 25 Entonces
				c = c + 1
			SiNo
				Escribir "El numero maximo de creditos es 25"
				total = total - creditos
			FinSi
		FinSi
	FinMientras
	Escribir "Numero de creditos: ",c
	Escribir "Total de creditos: ",total
FinAlgoritmo