RosettaCodeData/Task/Logical-operations/Delphi/logical-operations.pas

3 lines
69 B
ObjectPascal

{ exclusive or }
writeLn(A:5, ' xor', B:6, ' yields', A xor B:7);