Var a,b:0..1;
begin
writeln('   A     B    not A  A and B  A or B A xor B');
for a:=0 to 1 do
 for b:=0 to 1 do
  writeln((a=1):6,(b=1):6,(not(a=1)):7,(a=1)and(b=1):8,(a=1)or(b=1):8,(a=1)xor(b=1):8);
end.

Результат:
   A     B    not A  A and B  A or B A xor B
 False False   True   False   False   False
 False  True   True   False    True    True
  True False  False   False    True    True
  True  True  False    True    True   False