Maquina Expendedora

Proceso sin_titulo
	Definir dinero,p,r,j,cz,cn,c,x como real;

	p = 350;
	r = 250;
	j = 400;
	cz = 550;
	cn = 600;
	c = 1000;

	Escribir "Hola, Ingrese dinero";
	Leer dinero;
	Si dinero < 0 entonces
		Escribir "El monto ingresado no es valido";
	Sino
		Escribir "Usted a ingresado ", dinero;
		Escribir "-----------------------------------------";
		Escribir "Que desea comprar ?";
		Escribir "[1]	Papas Fritas Lays - $350";
		Escribir "[2]	Ramitas Evercrips - $250";
		Escribir "[3]	Jugos Andina (caja pequeña) - $400";
		Escribir "[4]	Coca-Cola Zero (lata) - $500";
		Escribir "[5]	Coca-Cola Normal (lata) - $600";
		Escribir "[6]	Chocolate Trencito (200 grs.) $1000";
		Escribir "-----------------------------------------";;
		Leer x;
		Segun x Hacer
		1:
			Escribir "Usted Selecciono [Papas Fritas Lays, $350]";
			Esperar 1 segundos;
			Si dinero < p entonces
				Escribir "El valor de Papas Fritas Lays es de $350 y usted ingreso $", dinero;
				Escribir "Dinero Insuficiente";
			sino
				Escribir "Su vuelto es $",dinero - p;
			FinSi
		2:
			Escribir "Usted Selecciono [Ramitas Evercrisp, 250]";
			Esperar 1 segundos;
			Si dinero < r entonces
				Escribir "El valor de Ramitas es de $250 y usted ingreso $", dinero;
				Escribir "El dinero es insuficiente";
			Sino
				Escribir "Su vuelto es $",dinero - r;
			FinSi
		3:
			Escribir "Usted Selecciono [Jugo Andina caja pequeña, $400]";
			Esperar 1 segundos;
			Si dinero < j entonces
				Escribir "El valor de Jugo Andina es de $400 y usted ingreso $", dinero;
				Escribir "El dinero es insuficiente";
			Sino
				Escribir "Su vuelto es $",dinero - j;
			FinSi
		4:
			Escribir "Usted Selecciono [Coca-Cola Zero Lata, $550]";
			Esperar 1 segundos;
			Si dinero < cz entonces
				Escribir "El valor de Coca-Cola Zero es de $550 y usted ingreso $", dinero;
				Escribir "El dinero es insuficiente";
			Sino
				Escribir "Su vuelto es $",dinero - cz;
			FinSi
		5:
			Escribir "Usted Selecciono [Coca-Cola Normal, $600]";
			Esperar 1 segundos;
			Si dinero < cn entonces
				Escribir "El valor de Coca-Cola Normal es de $600 y usted ingreso $", dinero;
				Escribir "El dinero es insuficiente";
			Sino
				Escribir "Su vuelto es $",dinero - cz;
			FinSi
		6:
			Escribir "Usted Selecciono [Chocolate Trencito, $1000]";
			Esperar 1 segundos;
			Si dinero < c entonces
				Escribir "El valor de Chocolate Trencito es de $1000 y usted ingreso $", dinero;
				Escribir "El dinero es insuficiente";
			Sino
				Escribir "Su vuelto es $",dinero - c;
			FinSi
		De Otro Modo:
			Escribir "Opción no válida";
		FinSegun
	FinSi
FinProceso