Написать подрограмму для логического оператора AND, без использования логических операторов - Turbo Pascal

Формулировка задачи:

Помогите решить интересную задачу, в нете искал и не смог найти нормального ответа. ЗАранее Спасибо! Написать подрограмму для логического оператора AND, без использования логических операторов . Напривер a and b .

Решение задачи: «Написать подрограмму для логического оператора AND, без использования логических операторов»

Листинг программы

var a, b: Boolean; t: Integer;
begin
  Write('a b [0..1]: '); 
  Read(t); a:=t<>0;
  Read(t); b:=t<>0;
  WriteLn(a,' AND ',b,' = ',Ord(a)+Ord(b)=2);
end.

Объяснение кода листинга программы

В данном коде происходит чтение двух чисел от пользователя, а затем присваивание двум булевым переменным a и b значений, соответствующих прочитанным числам. После этого выполняется логическое ИЛИ (AND) переменных a и b, и результат сравнивается с числом 2. Вот список действий, представленный в виде команд Turbo Pascal:

Объявление переменных a, b и t типа Boolean и Integer.
Вывод сообщения для ввода чисел.
Чтение первого числа от пользователя и присвоение его переменной t.
Чтение второго числа от пользователя и присвоение его переменной t.
Присваивание переменной a значения t отличного от нуля.
Присваивание переменной b значения t отличного от нуля.
Вывод строки a AND b = 2, где a и b являются значениями переменных a и b соответственно.