Diunsa en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Diunsa tiene en oferta los productos de sus tiendas con 40% de descuento por compras mayores a 20000 y pagando con su tarjeta Diunsa obtiene un 20% adicional.
Elabore un algoritmo que solicite el valor de compra, el tipo de pago (Tarjeta crédito, Tarjeta crédito Diunsa ó Efectivo) y calcule:
El descuento aplicado.
El impuesto sobre ventas (15%).
El total a pagar.

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

Proceso Diunsa

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

    Leer compra;

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

    Escribir "    1.- Tarjeta crédito";

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

    Escribir "    3.- Efectivo";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo_de_pago;

        Si tipo_de_pago<1 O tipo_de_pago>3 Entonces

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

        FinSi

    Hasta Que tipo_de_pago>=1 Y tipo_de_pago<=3;

    descuento <- 0;

    Si compra>20000 Entonces

        descuento <- compra*0.4;

    FinSi

    Si tipo_de_pago = 2 Entonces

        descuento <- descuento+compra*0.2;

    FinSi

    impuesto <- (compra-descuento)*0.15;

    total_a_pagar <- compra-descuento+impuesto;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de impuesto: ", impuesto;

    Escribir "Valor de total a pagar: ", total_a_pagar;

FinProceso