Monto y descuento por 2 productos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Permita a un cajero ingresar precio individual y su cantidad por producto (solicite 2 productos). Luego se le muestra un menú para ingresar el modo de pago. las formas de pago disponibles son:
a) En efectivo.
b) Tarjeta de crédito.
El programa le regresara al cajero:
a) El monto inicial a pagar (sin descuento).
b) Total de descuento aplicado.
c) Monto final a pagar (monto inicial menos decuento).
Tenga en cuenta que si el pago es en efectivo se aplicará un descuento del 20%, si paga con tarjeta de crédito se le aplicará un descuento del 7.28%.

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

Proceso MontoYDescuentoPor2Productos

    Escribir Sin Saltar "Ingresa el valor de cantidad producto 1:";

    Leer cantidad_producto_1;

    Escribir Sin Saltar "Ingresa el valor de cantidad producto 2:";

    Leer cantidad_producto_2;

    Escribir Sin Saltar "Ingresa el valor de precio producto 1:";

    Leer precio_producto_1;

    Escribir Sin Saltar "Ingresa el valor de precio producto 2:";

    Leer precio_producto_2;

    monto_inicial <- precio_producto_1*cantidad_producto_1+precio_producto_2*cantidad_producto_2;

    Escribir "Selecciona el valor de modo de pago.";

    Escribir "    1.- Efectivo";

    Escribir "    2.- Tarjeta de crédito";

    Escribir Sin Saltar "    :";

    Repetir

        Leer modo_de_pago;

        Si modo_de_pago<1 O modo_de_pago>2 Entonces

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

        FinSi

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

    Si modo_de_pago = 1 Entonces

        descuento <- monto_inicial*0.2;

    SiNo

        descuento <- monto_inicial*0.0728;

    FinSi

    monto_final <- monto_inicial-descuento;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de monto final: ", monto_final;

    Escribir "Valor de monto inicial: ", monto_inicial;

FinProceso