Descuento a sus afiliados en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Colsubsidio ofrece un descuento a sus afiliados del 5% sobres sus compras. Hacer un planteamiento lógico que calcule el descuento y el valor final a pagar tanto para afliliados como no afiliados y que al final incluya un mensaje que diga "Gracias por su compra"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Proceso DescuentoASusAfiliados

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

    Leer compras;

    Escribir "Selecciona el valor de es afiliado.";

    Escribir "    1.- Si";

    Escribir "    2.- No";

    Escribir Sin Saltar "    :";

    Repetir

        Leer es_afiliado;

        Si es_afiliado<1 O es_afiliado>2 Entonces

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

        FinSi

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

    Si es_afiliado = 1 Entonces

        descuento <- compras*0.05;

    SiNo

        descuento <- 0;

    FinSi

    pago <- compras-descuento;

    Escribir "Gracias por su compra";

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de pago: ", pago;

FinProceso