Составить таблицу истинности

var
  f, x, y, z: boolean;
 
begin
  writeln('x':8, 'y':8, 'z':8, 'f':8);
  for x := false to true do
    for y := false to true do
      for z := false to true do
      begin
        f := not ((not x and y)) or (x and not z);
        writeln(x:8, y:8, z:8, f:8);
      end;
end.

var
  i, j, k: byte;
  f, x, y, z: boolean;
 
begin
  writeln('x':6, 'y':6, 'z':6, 'f':6);
  for i := 0 to 1 do
    for j := 0 to 1 do
      for k := 0 to 1 do
        begin
          x := odd(i);
          y := odd(j);
          z := odd(k);
          f := not (not x and y) or x and not z;
          writeln(x:6, y:6, z:6, f:6)
        end
end.

var
  x, y, z: byte;
  f: boolean;
begin
  writeln('x':6, 'y':6, 'z':6, 'f':6);
  for x := 0 to 1 do
    for y := 0 to 1 do
      for z := 0 to 1 do
        begin
          f := not((x = 0) and (y = 1)) or (x = 1) and (z = 0);
          writeln(x=1:6, y=1:6, z=1:6, f:6)
        end
end.

var
  p: byte;
begin
  writeln('x':6, 'y':6, 'z':6, 'f':6);
  for p := 0 to 7 do
    writeln(p > 3:6, p and 2 > 0:6, odd(p):6, not((p < 4) and (p and 2 > 0)) or (p > 3) and not odd(p):6)
end.