лаба 1 семестр 2

var
  a, b, c: boolean;

begin
  for a := false to true do
    for b := false to true do
      for c := false to true do
        writeln(ord(a), ord(b), ord(c), 
        ord(not (not (a) xor b) and (not (a) or not (c))))
end.