Proceso sin_titulo

	Definir x como reales;
    Definir s1 como reales;
    Definir s2 como reales;
    Definir r1 como reales;
    Definir r2 como reales;
    Definir d1 como reales;
    Definir d2 como reales;
    Definir m1 como reales;
    Definir m2 como reales;

	Escribir "Hola, ingresa el numero correcto.";
	Escribir "Si fallas, intentalo nuevamente";

	Leer x ;
	Mientras x <> 7 Hacer
		Leer x ;
		si x = 7 Entonces
			Escribir "Numero Correcto";

			Escribir "Tienes acceso a la calculadora";
			Esperar 1 segundos;
			Escribir "-------------------------------";
			Escribir "Hola, Seleccione una funcion";
			Escribir " [1]Sumar - [2]Restar ";
			Escribir " [3]Dividir - [4]Multlipicar ";
			Leer x;
			Segun x Hacer
				1:
					Escribir "Digite la suma";
					Leer s1;
					Escribir " + ";
					Leer s2;
					Escribir "Es igual a: ", s1 + s2;

				2:
					Escribir "Digite la Resta";
					Leer r1;
					Escribir " - ";
					Leer r2;
					Escribir "Es igual a: ", r1 - r2;

				3:
					Escribir "Digite la Divicion";
					Leer d1;
					Escribir " / ";
					Leer d2;
					Escribir "Es igual a: ", d1 / d2;

				4:
					Escribir "Digite la Multiplicacion";
					Leer m1;
					Escribir " * ";
					Leer m2;
					Escribir "Es igual a: ", m1 * m2;

				De Otro Modo:
					Escribir "Cometiste un error en alguna parte.";
			FinSegun

		Sino
			Escribir "Fallaste";
			Escribir "Cuanto es 165 - 158 ? ";
		FinSi
	FinMientras

FinProceso