Pago por ciclo en una Universidad en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcular el pago por ciclo de un alumno de una Universidad, si se ingresan, créditos inscritos, categoría, matricula (1: normal, 2: extemporánea). El pago por crédito depende de la categoría de acuerdo a la siguiente tabla:
CATEGORÍA | PAGO CRÉDITO
A | 125.00
B | 150.00
C | 180.00
Por matricula extemporánea se paga un recargo de 40.00 soles.

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

Proceso PagoPorCicloEnUnaUniversidad

    Escribir Sin Saltar "Ingresa el valor de creditos inscritos:";

    Leer creditos_inscritos;

    Escribir "Selecciona el valor de categoria.";

    Escribir "    1.- A";

    Escribir "    2.- B";

    Escribir "    3.- C";

    Escribir Sin Saltar "    :";

    Repetir

        Leer categoria;

        Si categoria<1 O categoria>3 Entonces

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

        FinSi

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

    Escribir "Selecciona el valor de matricula.";

    Escribir "    1.- normal";

    Escribir "    2.- extemporánea";

    Escribir Sin Saltar "    :";

    Repetir

        Leer matricula;

        Si matricula<1 O matricula>2 Entonces

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

        FinSi

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

    pago_por_credito <- 0;

    Si categoria = 1 Entonces

        pago_por_credito <- 125;

    FinSi

    Si categoria = 2 Entonces

        pago_por_credito <- 150;

    FinSi

    Si categoria = 3 Entonces

        pago_por_credito <- 180;

    FinSi

    pago_por_ciclo <- creditos_inscritos*pago_por_credito;

    Si matricula = 2 Entonces

        pago_por_ciclo <- pago_por_ciclo+40;

    FinSi

    Escribir "Valor de pago por ciclo: ", pago_por_ciclo;

    Escribir "Valor de pago por credito: ", pago_por_credito;

FinProceso