RosettaCodeData/Task/Ternary-logic/Delphi/ternary-logic-4.pas

Result := tvl_and[A, B];