В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую переменную с клавиатуры, необходимо ввести другую переменную(переменную другого типа) и сравнивать с ней.

program number17;
uses crt;
var eat: boolean;
otvet: char;
begin
clrscr;
write (‘Ты хочешь есть y\n?: ’);
readln (otvet);
eat:=otvet=’y’;
writeln (‘Твой ответ:’,eat);
readln
end.

Строка №8. Мы должны ввести с клавиатуры либо «y» либо «n».

Строка №9. Булевской переменной «eat» мы присваиваем значение переменной «otvet», которая в свою очередь содержит в себе символ «y», поэтому, когда мы наберем на клавиатуру символ «y», утверждение окажется истиной и на экране выведется сообщение TRUE. Если мы введем какой-то другой символ, например, «n», то выведется сообщение FALSE.

Так как в программе булевской переменной «eat» присвоено значение символьной переменной y (eat:=otvet=’y’), то только при вводе y с клавиатуры будет выводиться сообщение TRUE. Во всех остальных случаях (при вводе любого другого символа) будет выводиться сообщение FALSE.