INICIO
    a = 0, b = 1
    VISUALIZAR "Introduzca n"
    LEER n
    SI n > 2
        suma = a + b
        VISUALIZAR a,"",b
        PARA cont = 3 HASTA n
            a = suma
            suma = a + suma
            VISUALIZAR suma
        FIN PARA
    SINO
        VISUALIZAR "No se puede aplicar la serie a menos de 3 términos!"
    FIN SI
FIN

INICIO
    final = 0
    REPETIR
        res = 0
        PARA cont = 1 HASTA n DIV 2
            SI cont % n == 0
                res = res + cont
            FIN SI
        FIN PARA
        SI res == n
            VISUALIZAR n
            final = final + 1
        FIN SI
        n = n + 1
    MIENTRAS final < 25
FIN

INICIO
    nalumnos = 0, global = 0
    REPETIR
        VISUALIZAR "Introduzca el nombre del alumno"
        LEER alumno
        media = 0
        SI alumno != fin
            PARA cont = 1 HASTA 6
                VISUALIZAR "Introduzca la nota número" , cont
                LEER nota
                media = media + nota
            FIN PARA
            media = media / 6
            global = global + media
            nalumnos = nalumnos + 1
            VISUALIZAR alumno, media
        FIN SI
    MIENTRAS alumno != fin
    global = global / nalumnos
    VISUALIZAR "Media del grupo: ", global
FIN

INICIO
    primos = 0
    VISUALIZAR "Introduzca n"
    LEER n
    MIENTRAS primos < n
        cont = 0, cond = true
        MIENTRAS cond = true
            cont = cont + 1
            SI cont % a = 0
                cond = false
            FIN SI
        FIN MIENTRAS
        SI cont == a
            VISUALIZAR a
            primos = primos + 1
        FIN SI
        a = a +1
    FIN MIENTRAS
FIN

INICIO
    MIENTRAS numeros(33) < 3
        VISUALIZAR "Introduzca el número de bola"
        LEER bola
        numeros(bola) = numeros(bola) + 1
    FIN MIENTRAS
    PARA cont = 1 HASTA 80
        VISUALIZAR "Número de ", bola, "que salieron: ", numeros(bola)
    FIN PARA
FIN

INICIO
    VISUALIZAR "Introduzca pieza y departamento"
    LEER pieza, dep
    MIENTRAS pieza != 0
        SI pieza < 0 == 1 OR pieza > 0 == 1
            VISUALIZAR "Pieza número ", pieza, "es incorrecta"
        SINO
            deps(dep,pieza) = deps(dep,pieza) + 1
        FIN SI
        VISUALIZAR "Introduzca pieza y departamento"
        LEER pieza, dep
    FIN MIENTRAS
    PARA dep = 1 HASTA 8
        PARA pieza = 0 HASTA 8
            VISUALIZAR "Departamento: ", dep, "Pieza: ", pieza, "Cantidad: ", deps(dep,pieza)
        FIN PARA
    FIN PARA
FIN

INICIO
//Resolución del apartado A con dos bucles para.
	PARA y=1 HASTA 3
		PARA x=1 HASTA 4
			VISUALIZAR "El valor de pieza",x,"en almacén",y,"es",(inventario(x,y)*coste(x))
		FIN PARA
	FIN PARA
//Resolución del apartado B con dos bucles para.
	PARA y=1 HASTA 3
	tgt=0
		PARA x=1 HASTA 4
			tgt=tgt+(inventario(x,y)*coste(x))
		FIN PARA
		VISUALIZAR "El valor de almacén",y,"es",tgt
	FIN PARA
//Resolución del apartado C con dos bucles para
	PARA x=1 HASTA 4
		tgt=0
		PARA y=1 HASTA 3
			tgt=tgt+(inventario(x,y)*coste(x))
		FIN PARA
		VISUALIZAR "El valor de piezas",x,"es",tgt
	FIN PARA
//Resolución del apartado D con dos bucles para
	sup=0
	PARA y=1 HASTA 3
		tgt=0
		PARA x=1 HASTA 4
			tgt=tgt+(inventario(x,y)*coste(x))
		FIN PARA
		sup=sup+tgt
	FIN PARA
	VISUALIZAR "Valor global es",sup
FIN

INICIO
//Resolución de los apartados A, B y D en el mismo bucle PARA
	PARA y=1 HASTA 3
	tgt=0
		PARA x=1 HASTA 4
			part = inventario(x,y)*costes(x)
			VISUALIZAR "Valor de pieza",x,"en almacén",y,"es",part
			tgt = tgt + part
		FIN PARA
		sup = sup + tgt
		VISUALIZAR "Valor total de almacén",y,"es",tgt
	FIN PARA
	VISUALIZAR "Valor total global",sup
//Resolución del apartado C en otros dos bucles PARA, ya que
//en esta es necesario colocarlos de forma inversa.
	PARA x=1 HASTA 4
		tgt=0
		PARA Y=1 HASTA 3
			tgt = tgt + (inventario(x,y)*coste(x))
		FIN PARA
		VISUALIZAR "El valor de piezas",x,"es",tgt
	FIN PARA
FIN