Chistes (menú)

Hacer un programa que muestre un chiste de acuerdo al siguiente menú
1.Chiste de niños
2.Chiste de Borrachos
3.Chiste Verde
4.Chiste sobre profesores
5.Chiste sobre estudiantes
6.Chiste sobre animales
después mostrar el chiste debe preguntarle al usuario si le gustó. Si no le gustó debe terminar el programa.

_____________________________________________________





Proceso menu_chistes
Mientras  like<>"n"  Hacer
Escribir " ";
Escribir "Chistes";
Escribir " ";
Escribir "1.Chiste de ninos";
Escribir "2.Chiste de Borrachos";
Escribir "3.Chiste Verde";
Escribir "4.Chiste sobre profesores";
Escribir "5.Chiste sobre estudiantes";
Escribir "6.Chiste sobre animales";
Escribir " ";
Escribir "Ingrese la opcion que desea";
Leer Opcion;
Si Opcion=1 Entonces
Escribir " ";
Escribir "El niño a su papá: ";
Escribir "¡Papá, papá, vinieron a preguntar si aquí vendían un burro! ";
Escribir "¿Y qué les dijiste, hijo? ";
Escribir "Que no estabas. ";
Escribir " ";
FinSi
 Si Opcion=2 Entonces
Escribir " ";
Escribir "Un borracho se queda mirando aterrado a dos tipos que vienen por la calle.";
Escribir "- Por qué nos mira así? Es que nosotros somos gemelos";
Escribir "- ¿Los cuatro??? ";
Escribir " ";
 FinSi
Si Opcion=3 Entonces
Escribir " ";
Escribir "- Mama,me voy con las amigas";
Escribir "- O te quitas la minifalda o no sales";
Escribir "- Por qué Mama?";
Escribir "- Porque es muy corta";
Escribir "- Y que?";
Escribir "- Que se te ven los huevos Paco. ";
Escribir " ";
FinSi
 Si Opcion=4 Entonces
Escribir " ";
Escribir "-Papa, papa, hoy no quiero ir a la escuela.";
Escribir "-¿Que te pasa hijo?";
Escribir "-Pues mira, primero tengo sueño, se gundo que me aburro y tercero";
Escribir "que se rien de mi.";
Escribir "-¿Sabes que te digo?, que tienes que ir. Primero porque es tu"; 
Escribir "obligación, segundo porque ya tienes cuarenta y cinco años y tercero";
Escribir "porque eres el director. ";
Escribir " ";
 FinSi
Si Opcion=5 Entonces
Escribir " ";
Escribir "A ver Pepito, si yo digo fui rica,";
Escribir "es pasado, pero si yo digo soy hermosa,¿Que es?";
Escribir "!Exceso de imaginacion profesora! ";
Escribir " ";
FinSi
 Si Opcion=6 Entonces
Escribir " ";
Escribir " Una hormiguita le pregunta a un elefante al verlo tan grande:";
Escribir "amiguito cuantos años tienes?";
Escribir "El elefante le contesta 1 año.";
Escribir "Luego el elefante le pregunta lo mismo y la hormiguita le contesta:";
Escribir "También tengo un año,";
Escribir "pero .... es que he estado muy enfermita!!!!";
Escribir " ";
 FinSi
Si Opcion>6 Entonces
Escribir " ";
Escribir "La opcion no es valida";
Escribir " ";
FinSi
 Si Opcion=1 o Opcion=2 o Opcion=3 o Opcion=4 o Opcion=5 o Opcion=6 Entonces
like<-" ";
Escribir " ";
Escribir "¿Le gusto el chiste? Si(s) / No(n)";
Escribir " ";
Leer like
Si like="s" Entonces
Escribir "Ja ja ja, disfrute de mas chistes";
FinSi
 FinSi
FinMientras
FinProceso