DEFINE PROCEDIMIENTO "HABA.java";
{
respuestaCorrecta = FALSO;
IMPRIME("¿Quieres que te cuente el cuento de las habas que nunca se acaba?"+SALTO_DE_LINEA);
HAZ {
LEE (respuesta);
SI ( respuesta == "Sí" )
{
respuestaCorrecta = VERDADERO ;
IMPRIME("No digo ni que sí ni que no."+SALTO_DE_LINEA);
IMPRIME("Digo que si quieres que te cuente el cuento ");
IMPRIME("de las habas que nunca se acaba"+SALTO_DE_LINEA);
}
SI NO
{
SI ( respuesta == "No" )
{
respuestaCorrecta = VERDADERO;
IMPRIME("No digo ni que sí ni que no."+SALTO_DE_LINEA );
IMPRIME("Digo que si quieres que te cuente el cuento ");
IMPRIME("de las habas que nunca se acaba"+ SALTO_DE_LINEA);
}
SI NO
{
EJECUTA ("Haba.java");
}
}
} MIENTRAS ( respuestaCorrecta == VERDADERO );
}