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

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