Monto a pagar por el colegio de procedencia en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Escribir un algoritmo que pida el colegio de procedencia que puede ser A, B, C y el modo de educación tipo Nacional (N), y Particular (P). Según el siguiente cuadro hallar el monto a pagar.
Colegio | Nacional | Particular
A | 50 | 25
B | 40 | 29
C | 30 | 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

Proceso MontoAPagarPorElColegioDeProcedencia

    Escribir "Selecciona el valor de colegio de procedencia.";

    Escribir "    1.- A";

    Escribir "    2.- B";

    Escribir "    3.- C";

    Escribir Sin Saltar "    :";

    Repetir

        Leer colegio_de_procedencia;

        Si colegio_de_procedencia<1 O colegio_de_procedencia>3 Entonces

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

        FinSi

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

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

    Escribir "    1.- Nacional";

    Escribir "    2.- Particular";

    Escribir Sin Saltar "    :";

    Repetir

        Leer modo_de_educacion;

        Si modo_de_educacion<1 O modo_de_educacion>2 Entonces

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

        FinSi

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

    monto_a_pagar <- 0;

    Si colegio_de_procedencia = 1 Y modo_de_educacion = 1 Entonces

        monto_a_pagar <- 50;

    FinSi

    Si colegio_de_procedencia = 2 Y modo_de_educacion = 1 Entonces

        monto_a_pagar <- 40;

    FinSi

    Si colegio_de_procedencia = 3 Y modo_de_educacion = 1 Entonces

        monto_a_pagar <- 30;

    FinSi

    Si colegio_de_procedencia = 1 Y modo_de_educacion = 2 Entonces

        monto_a_pagar <- 25;

    FinSi

    Si colegio_de_procedencia = 2 Y modo_de_educacion = 2 Entonces

        monto_a_pagar <- 29;

    FinSi

    Si colegio_de_procedencia = 3 Y modo_de_educacion = 2 Entonces

        monto_a_pagar <- 15;

    FinSi

    Escribir "Valor de monto a pagar: ", monto_a_pagar;

FinProceso