programs lox;
uses crt;
var a,b,c,d,s:integer;
begin
clrscr;
writeln('Введите 4 числа,3 одинаковых и одно отличное от них');{ТУПОСТЬ КАКАЯ-ТО}
readln('a=',a);
readln('b=',b);
readln('c=',c);
readln('d=',d);
if (a<>b) and (b=c) and (d=c)
  then s:=a+b;
if (c<>a) and (a=b) and (a=d)
then s:=c+a;
if (b<>a) and (a=c) and (d=a)
then s:=b+d;
if (d<>a) and (a=c) and (c=b)
then s:=d+a;
writeln(s);
readkey;
end.