Ввести с клавиатуры 4 целых числа при этом 3 из них одинаковые , а 1 отличается ,вывести на экран отличающегося числа pascal abc

Var a,b,c,d:integer;
Begin
Write('Введите числа: ');
Readln(a);
Readln(b);
Readln(c);
Readln(d);
If b=c then If c=d then Writeln(a);
If a=c then If c=d then Writeln(b);
If a=b then If b=d then Writeln(c);
If a=b then If b=c then Writeln(d);
End.