Para vorigen<-1 Hasta 3 Con Paso 1 Hacer
Si vorigen = vrural Entonces
Escribir "El valor de la matricula para el primer estudiante";
Leer precio_matr1;
descuento_1 <- (precio_matr1 * 0.5)
Escribir "El valor total de la matricula con el descuento del primer estudiante es...",
descuento_1;
Escribir "Si el estudiante está estudiando una carrera tiene un subsidio";
Leer descuento_1
vsubsidio1 <- (descuento_1 + 500000)
Escribir "El subsidio de la carrera que esta estudiando es de...", vsubsidio1;
SiNo
Escribir "....";
Fin Si
Escribir "Por favor registre el nombre del segundo estudiante";
Leer nombre_2;
Escribir "El origen del estudiante es";
Leer vorigen2
Si vorigen2 = vurbano Entonces
Escribir "El valor de la matricula para el segundo estudiante es";
Leer precio_matr2;
descuento_2 <-(precio_matr2 * 0.3)
Escribir "El valor total de la matricula con el descuento del segundo estudiante
es...",descuento_2;
Escribir "Si el estudiante está estudiando una carrera tiene un subsidio";
Leer vsubsidio2
vsubsidio2 <- (precio_matr2 + 300000)
Escribir "El subsidio de la carrera que esta estudiando es de...",vsubsidio2;
SiNo
Escribir "....";
Fin Si
Escribir "Por favor registre el nombre del tercer estudiante";
Leer nombre_3;
Escribir "El origen del estudiante es";
Leer vorigen3
Si vorigen3 = vforaneo Entonces
Escribir "El valor de la matricula para el tercer estudiante es";
Leer precio_matr3;
descuento_3 <- (precio_matr3 * 0.3)
Escribir "El valor total de la matricula con el descuento del segundo estudiante
es...",descuento_3;
Escribir "Si el estudiante está estudiando una carrera tiene un subsidio";
Leer vsubsidio3
vsubsidio3 <-(precio_matr2 + 300000)
Escribir "El subsidio de la carrera que esta estudiando es de...",vsubsidio3;
SiNo
Escribir ".....";
Fin Si
Fin Para