Logikai műveletek Pascalban: A xor művelet