Impuesto de un automóvil en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Permita leer los datos de un automóvil: marca, origen y costo. Imprimir el impuesto a pagar y el precio de venta incluido el impuesto
Si el origen es Alemania el impuesto es 20%.
Si es de Japón 30%.
Si es de Italia 15%.
Si es de EUA 8%.

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

Proceso ImpuestoDeUnAutomovil

    Escribir Sin Saltar "Ingresa el marca:";

    Leer marca;

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

    Leer costo;

    Escribir "Selecciona el valor de origen.";

    Escribir "    1.- Alemania";

    Escribir "    2.- Japón";

    Escribir "    3.- Italia";

    Escribir "    4.- EUA";

    Escribir Sin Saltar "    :";

    Repetir

        Leer origen;

        Si origen<1 O origen>4 Entonces

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

        FinSi

    Hasta Que origen>=1 Y origen<=4;

    impuesto <- 0;

    Si origen = 1 Entonces

        impuesto <- costo*0.2;

    FinSi

    Si origen = 2 Entonces

        impuesto <- costo*0.3;

    FinSi

    Si origen = 3 Entonces

        impuesto <- costo*0.15;

    FinSi

    Si origen = 4 Entonces

        impuesto <- costo*0.08;

    FinSi

    precio_de_venta <- costo+impuesto;

    Escribir "Marca: ", marca;

    Escribir "Valor de impuesto: ", impuesto;

    Escribir "Valor de precio de venta: ", precio_de_venta;

FinProceso