Empresa de artefactos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Si se sabe que en una empresa de artefactos se tiene especificado los productos por categoría:
La categoría A cuesta 1300.
La categoría B cuesta 950.
La categoría C cuesta 800.
La categoría D cuesta 500.
La categoría E cuesta 200.
Además se sabe que a todo producto se le va agregar un descuento del 10%. También se sabe que hay que tener en cuenta que este sistema está programado para vender 2 productos. Saque el total de la cuenta.

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
33
34
35
36
37
38
39
40
41

Proceso EmpresaDeArtefactos

    total_de_la_cuenta <- 0;

    Para i<-1 Hasta 2 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir "Selecciona el valor de categoria.";

        Escribir "    1.- A";

        Escribir "    2.- B";

        Escribir "    3.- C";

        Escribir "    4.- D";

        Escribir "    5.- E";

        Escribir Sin Saltar "    :";

        Repetir

            Leer categoria;

            Si categoria<1 O categoria>5 Entonces

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

            FinSi

        Hasta Que categoria>=1 Y categoria<=5;

        costo <- 0;

        Si categoria = 1 Entonces

            costo <- 1300;

        FinSi

        Si categoria = 2 Entonces

            costo <- 950;

        FinSi

        Si categoria = 3 Entonces

            costo <- 800;

        FinSi

        Si categoria = 4 Entonces

            costo <- 500;

        FinSi

        Si categoria = 5 Entonces

            costo <- 200;

        FinSi

        descuento <- costo*0.1;

        total_de_la_cuenta <- total_de_la_cuenta+costo-descuento;

        Escribir "Valor de costo: ", costo;

        Escribir "Valor de descuento: ", descuento;

        Escribir "";

    FinPara

    Escribir "Valor de total de la cuenta: ", total_de_la_cuenta;

FinProceso