Ladrillos king kong y pandereta en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una ladrillera guarda la informacion de sus N envíos de ladrillos a sus clientes. La empresa cuenta con la siguiente informacion: cantidad de ladrillos y tipo de ladrillo (King kong y Pandereta) de cada envio. Construya un algoritmo que permita calcular lo siguiente:
a) La suma de todos los ladrillos enviados.
b) Cantidad de ladrillos del tipo King kong.
c) Cantidad de ladrillos del tipo Pandereta.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Proceso LadrillosKingKongYPandereta

    ladrillos_king_kong <- 0;

    ladrillos_pandereta <- 0;

    suma_de_todos <- 0;

    Escribir Sin Saltar "Ingresa el valor de n:";

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de cantidad de ladrillos:";

        Leer cantidad_de_ladrillos;

        Escribir "Selecciona el valor de tipo de ladrillo.";

        Escribir "    1.- King kong";

        Escribir "    2.- Pandereta";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_ladrillo;

            Si tipo_de_ladrillo<1 O tipo_de_ladrillo>2 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que tipo_de_ladrillo>=1 Y tipo_de_ladrillo<=2;

        suma_de_todos <- suma_de_todos+cantidad_de_ladrillos;

        Si tipo_de_ladrillo = 1 Entonces

            ladrillos_king_kong <- ladrillos_king_kong+1;

        SiNo

            ladrillos_pandereta <- ladrillos_pandereta+1;

        FinSi

        Escribir "";

    FinPara

    Escribir "Valor de ladrillos king kong: ", ladrillos_king_kong;

    Escribir "Valor de ladrillos pandereta: ", ladrillos_pandereta;

    Escribir "Valor de suma de todos: ", suma_de_todos;

FinProceso