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

Result := tvl_and[A, B];