program problema2;
var
  p,q : boolean;

begin
  writeln('primeira lei de De Morgan');
  for p := false to true do
  begin
    for  q := false to true do
    begin
      writeln(p,' ',q,' ',p or q,' ',not(p or q),' ',(not p) and (not q));
    end;
  end;
  writeln;
  writeln('segunda lei de De Morgan');
  for p := false to true do
  begin
    for  q := false to true do
    begin
      writeln(p,' ',q,' ',p and q,' ',not(p and q),' ',(not p) or (not q));
    end;
  end;
  readln;
end.