Найти число, отличающееся от других чисел

var a, b, c, d:integer;
begin
readln(a, b, c, d);
 
if a=b then 
  if c=a then 
    writeln(d) 
  else if c<>a then 
    writeln(c)
else if a<>b then  
  if a=c then 
    writeln(b) 
  else if a<>c 
    then writeln(a)
end.
//не проходит 1 2 2 2
//и  2 1 2 2

var a,b,c,d:integer;
begin
  readln(a,b,c,d);
  if (a<>b) and (a<>c) and (a<>d) 
    then writeln(a) 
 else
  if (b<>a) and (b<>c) and (b<>d) 
    then writeln(b) 
 else
  if (c<>b) and (c<>a) and (c<>d) 
    then writeln(c) 
 else
  if (d<>b) and (d<>c) and (d<>a) 
    then writeln(d);
end.

var
  a, b, c, d: integer;
 
begin
  readln(a, b, c, d);
  if (a <> b) and (b = c) and (b = d)
    then writeln(a)
    else if (b <> c) and (a = c) and (a = d)
      then writeln(b)
      else if (c <> d) and (a = b) and (a = d)
        then writeln(c)
        else if (c <> d) and (a = b) and (a = c)
          then writeln(d)
          else writeln('Нет решения');
  readln
end.

var a,b,c,d:integer;
begin
  readln(a,b,c,d);
if a=b then 
    if c=a then 
        print(d)
    else
        print(c)
else
    if a=c then
        print(b)
    else
        print(a);
end.

var
  a, b, c, d: integer;
 
begin
  readln(a, b, c, d);
  if a = b
    then if c = a
      then writeln(d)
      else writeln(c)
    else if a = c
      then writeln(b)
      else writeln(a)
end.