De acuerdo a una fecha dada por el usuario, indicar que signo zodiacal le corresponde además de dar un mensaje de acuerdo al signo.


Proceso Zodiaco
definir d,m como numero;
Escribir "Zignos del zodiaco ";
Escribir "Ingresa tu dia de nacimiento ";
Leer d;
Escribir "Ingresa tu mes de nacimiento ";
leer m;
si (d>=22 y m=3) o (d<=21 y m=4) Entonces
Escribir " Aries"
Escribir " Somos dueños de nuestro destino. Somos capitanes de nuestra alma."
FinSi
si (d>=22 y m=4) o (d<=21 y m=5) Entonces
Escribir " Tauro"
Escribir " Para triunfar simplemente hay que llegar, levantándose cada vez que se cae en el camino."
FinSi
si (d>=22 y m=5) o (d<=21 y m=6) Entonces
Escribir " Geminis"
Escribir " Somos dueños de nuestro destino. Somos capitanes de nuestra alma."
FinSi
si (d>=22 y m=6) o (d<=21 y m=7) Entonces
Escribir " Cancer"
Escribir " Nuestra gloria más grande no consiste en no haberse caido nunca, sino en haberse levantado después de cada caída. "
FinSi
si (d>=22 y m=7) o (d<=21 y m=8) Entonces
Escribir " Leo"
Escribir " Las oportunidades no son producto de la casualidad, mas bien son resultado del trabajo."
FinSi
si (d>=22 y m=8) o (d<=21 y m=9) Entonces
Escribir " Virgo"
Escribir " No existe la casualidad solo lo inevitable."
FinSi
si (d>=22 y m=9) o (d<=21 y m=10) Entonces
Escribir " Libra"
Escribir " Los sueños no tienen fecha de caducidad."
FinSi
si (d>=22 y m=10) o (d<=21 y m=11) Entonces
Escribir " Escorpion"
Escribir " Mientras tu dices que es imposible alguien ya lo esta haciendo."
FinSi
si (d>=22 y m=11) o (d<=21 y m=12) Entonces
Escribir " Sagitario"
Escribir " Sonríe hoy, puede que mañana tengas los dientes sucios."
FinSi
si (d>=22 y m=12) o (d<=21 y m=1) Entonces
Escribir " Capricornio"
Escribir " Nunca es demasiado tarde para luchar por aquello que es importante en tu vida."
FinSi
si (d>=22 y m=1) o (d<=21 y m=2) Entonces
Escribir " Acuario"
Escribir " Las mentiras mas grandes son: Nunca y Siempre."
FinSi
si (d>=22 y m=2) o (d<=21 y m=3) Entonces
Escribir " Piscis"
Escribir " El pasado es experiencia, que el presente aprovecha y el futuro perfecciona."
FinSi
Escribir "****Gracias por tu consulta****";

FinProceso