Расчет премии

var a,b,c,n,x,y,z:int64;
begin 
readln(a);
readln(b);
readln(c);
readln(n);
for x:=n downto 0 do
for y:=n-x downto 0 do
for z:=0 to n-x-y do
if ((a+x=2*(B+y))and(2*(b+y)=2*(c+z)))and(x+y+z<=n) then
 begin writeln(x);writeln(y);writeln(z);halt;end;
writeln(0);
end.

var
  a, b, c, n,  a1, b1, c1,  n1: int64;
 
begin
  readln(a);
  readln(b);
  readln(c);
  readln(n);
  a1 := a; b1 := b; c1 := c;
  
  if b1 < c1 then begin n1 := c1 - b1; b1 := b1 + n1; n := n - n1; if n < 0 then begin writeln(0); halt; end; end;
  if b1 > c1 then begin n1 := b1 - c1; c1 := c1 + n1; n := n - n1; if n < 0 then begin writeln(0); halt; end; end;
  if a1 < 2 * c1 then begin n1 := 2 * c1 - a1; a1 := a1 + n1; n := n - n1; if n < 0 then begin writeln(0); halt; end; end;
  if a1 > 2 * c1 then begin n1 := (a1 - 2 * c1) div 2; b1 := b1 + n1; c1 := c1 + n1; n := n - 2 * n1; if n < 0 then begin writeln(0); halt; end; end;
  if a1 > 2 * c1 then begin a1 := a1 - 1; end;
  
  if a1 = 2 * b1 then
  begin
    n1 := n div 4;
    a1 := a1 + 2 * n1;
    b1 := b1 + n1;
    c1 := c1 + n1;
    
  end;
  writeln(a1 - a);
  writeln(b1 - b);
  writeln(c1 - c);
  
end.

var
  a, b, c, n,  s: int64;
 
begin
  readln(a);
  readln(b);
  readln(c);
  readln(n);
  s:=(a+b+c+n) div 4;
  if (a<=2*s) and (b<=s)and(c<=s) then begin
  writeln(2*s - a);
  writeln(s - b);
  writeln(s - c);end else writeln(0);
  
end.