Var
   a,b,c,i,j,k: longint;
   m: array [-1..30, -1..30, -1..30] of longint;

Begin
     fillchar(m, sizeof(m), 0);
     for i:= 0 to 30 do
         for j:= 0 to 30 do
             begin
             m[i,j,-1]:= -1;
             m[i,-1,j]:= -1;
             m[-1,i,j]:= -1;
             end;
     readln(input,a,b,c);
     for i:= 0 to a do
         for j:= 0 to b do
             for k:= 0 to c do
                 begin
                 if (i or j or k = 0) then continue;
                 if (m[i,j,-1]<>-1) then m[i,j,k]:= k -m[i,j,-1] else
                 if (m[i,-1,k]<>-1) then m[i,j,k]:= j -m[i,-1,k] else
                 if (m[-1,j,k]<>-1) then m[i,j,k]:= i -m[-1,j,k]
                 else
                    begin
                    m[i,j,k]:= -1;
                    m[-1,j,k]:= i;
                    m[i,-1,k]:= j;
                    m[i,j,-1]:= k;
                    end;
                 end;
     if (m[a,b,c]= -1)
        then writeln(output,'0 0 0')
        else begin
             if (m[a,b,-1]<>-1) then writeln(output,'0 0 ',m[a,b,c]) else
             if (m[a,-1,c]<>-1) then writeln(output,'0 ',m[a,b,c],' 0') else
             if (m[-1,b,c]<>-1) then writeln(output,m[a,b,c],' 0 0');
             end;
End.