const fi='BL1.INP';
      fo='BL1.OUT';
var f,g:text;
    i,min,n,k,so,j,tg:longint;
    a:array[0..1000000]of longint;
begin
        assign(f,fi); reset(f);
        assign(g,fo); rewrite(g);
        i:=1;
        while not eof(f) do begin
                read(f,a[i]);
                inc(i);
        end;
        n:=i-1;
        for i:=2 to n do
         for j:=n downto i do
                if a[j]<a[j-1] then begin
                        tg:=a[j]; a[j]:=a[j-1]; a[j-1]:=tg;
                end;
        min:=a[2]-a[1]; so:=a[1]; i:=2; j:=0;
        while i<n do begin
                k:=abs(a[i+1]-a[i]);
                if k<min then min:=k;
                if k>min then begin
                        so:=a[i];
                        j:=1;
                end;
                i:=i+1;
        end;
        if j=1 then write(g,so+min)
        else write(g,a[n]+min);
        close(f); close(g);
end.

type
     tlist = array[1..4] of longint;
var
f: text;
i,d: integer ;
a: tlist;
procedure qsort(var a : tlist);
    procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;

    begin
       sort(1,3);
    end;
begin
        assign (f,'BL1.inp');
        reset (f);
        for i:= 1 to 3 do read (f,a[i]);
        close (f);
        qsort (a);
        assign (f,'BL2.out');
        rewrite (f);
        d:= 10000;
        for i:= 2 to 3 do if a[i]-a[i-1] < d then d:= a[i]-a[i-1];
        for i:= 1 to 3 do
                if a[i] <> a[i+1]-d then
                        writeln (f,a[i]+d);
        close (f);
end.