mira aqui te dejo un facil



program booleanos;

uses crt;

var

bandera:boolean;

n:integer;

begin

writeln ('introduzca un numero');

readln (n);

if (n mod 2=0) then

bandera:=true

else

bandera:=false;



if (bandera=true) then

writeln ('el numero es par')

else

writeln ('el numero es impar');

readln;

end.



es un programa q determina si un numero es par o impar, le introduces un numero y despues haces verficas si el numero es par o impar con el (n mod 2), si si residuo de esta division es cero, entonces se le asigna al booleano "bandera" el valor TRUE, si no el residuo de la division es distinto de cero entonces se le asigna el valor booleano FALSE



estos dos son los unico valores q se le pueden asignas a un booleano TRUE, o FALSE



despues para preguntar por el valor del booleano, solo hice un IF y pregunte si ese booleano "bandera" es TRUE indica q el numero q introdujo el usuario es un numero par, si el booleano es FALSE entonces el numero del usuario es impar



y asi es lo q esta en el IF, tienes



if (bandera=true) then // ve si el booleano es igual a TRUE

writeln ('es par') // imprime este mensaje en caso de q el booleano sea TRUE

else // esto simboliza q el booleano es FALSE

writeln ('es impar'); // imprime este mensaje cuando el booleano tenga el valor de FALSE



saludos....espero haberte ayudado

Pascal Boolean

begin

...Init;

...salir := false;

...repeat

......case menu of

.........0:

............salir := true;

.........1:

............Registrar;

.........2:

............Borrar;

......end; //end case

...until salir;

end.



Si entiende que 'menu' es una funcion que muestra el menu y retorna la opcion.

Si te fijas en la variable salir es boolean y esta inicializada a false y mientras no cambie de valor no sale del repeat-until. Cuando el usuario selecciona la opcion 0 'salir' toma el valor true y sale del repeat-until y por tanto del programa.



Un saludo!!



NO TE OLVIDES DE SELECCIONAR UNA MEJOR RESPUESTA