Developing.ru

Помогите решить задачу!!!
Написать программу проверяющую истинность высказывания "Одно из четырех чисел отлично от других, равных между собой"
Пришлите исходник Пожалуйста!

Думаю, так, но не уверен:
result:=a xor b xor c xor d in [a xor b, c xor d];

или так:
result := (byte(a=b)+byte(b=c)+byte(c=d)+byte(a=d))=2;