Cuota por alumno en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Determinar el importe a pagar por un alumno de un instituto cuya cuota tiene un porcentaje de descuento que se establece en la siguiente tabla y está en función al colegio de procedencia del alumno; asimismo los importes están exonerados de impuestos.
INSTITUTOS
Colegio | A | B | C
Nacional | 50 | 40 | 30
Particular | 25 | 29 | 15

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
42
43
44
45
46
47

Proceso CuotaPorAlumno

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

    Leer cuota;

    Escribir "Selecciona el valor de instituto.";

    Escribir "    1.- Nacional";

    Escribir "    2.- Particular";

    Escribir Sin Saltar "    :";

    Repetir

        Leer instituto;

        Si instituto<1 O instituto>2 Entonces

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

        FinSi

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

    Escribir "Selecciona el valor de colegio.";

    Escribir "    1.- A";

    Escribir "    2.- B";

    Escribir "    3.- C";

    Escribir Sin Saltar "    :";

    Repetir

        Leer colegio;

        Si colegio<1 O colegio>3 Entonces

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

        FinSi

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

    descuento <- 0;

    Si instituto = 1 Y colegio = 1 Entonces

        descuento <- cuota*0.5;

    FinSi

    Si instituto = 1 Y colegio = 2 Entonces

        descuento <- cuota*0.4;

    FinSi

    Si instituto = 1 Y colegio = 3 Entonces

        descuento <- cuota*0.3;

    FinSi

    Si instituto = 2 Y colegio = 1 Entonces

        descuento <- cuota*0.25;

    FinSi

    Si instituto = 2 Y colegio = 2 Entonces

        descuento <- cuota*0.29;

    FinSi

    Si instituto = 2 Y colegio = 3 Entonces

        descuento <- cuota*0.15;

    FinSi

    importe_a_pagar <- cuota-descuento;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de importe a pagar: ", importe_a_pagar;

FinProceso