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