Программа вводит два целых числа и печатает результат применения к ним логических операций. Для выхода из программы нужно нажать сначала клавиши Ctrl+Z или Ctrl+Break, а затем - клавишу Enter.

Program LogOper;
var
 n, m: integer;
begin
 while not EOF do
 begin
 write('n,m= ');
 readln(n,m);
 writeln(' not= ', not n,' ', not m);
 writeln(' and= ', n and m);
 writeln(' or= ', n or m);
 writeln(' xor= ', n xor m);
 writeln(' shl= ', n shl m);
 writeln(' shr= ', n shr m)
 end
end.

В программе организуется ввод двух произвольных целых чисел и печать результата применения к ним всех логических операций.

---