var
  Value1, Value2: Boolean;
  ValueNot1, ValueNot2: Boolean;
  ValueAnd, ValueOr, ValueXor: Boolean;
begin
  Value1 := True;
  Value2 := False;

  ValueNot1 := not Value1;
  //valueNot1 is False

  ValueNot2 := not Value2;
  //valueNot2 is True

  ValueAnd := Value1 and Value2;
  //valueAnd is False

  ValueOr := Value1 or Value2;
  //valueOr is True

  ValueXor := Value1 xor Value2;
  //valueXor is True

  WriteLn('valueNot1 is ', ValueNot1);
  WriteLn('valueNot2 is ', ValueNot2);
  WriteLn('valueAnd is ', ValueAnd);
  WriteLn('valueOr is ', ValueOr);
  WriteLn('valueXor is ', ValueXor);
end.