program nutrinti_skaiciai;
  { 91 u‘davinys }
  procedure nutrinti (var a, b, s, d : integer);
  begin
    if s = 0
       then if d = 0
               then begin    { nutrinti skai‡iai s ir d }
                      s := a + b;
                      d := a * b;
                    end
               else begin     { nutrinti skai‡iai s ir   a arba b }
                      if a = 0
                         then a := d div b
                         else b := d div a;
                      s := a + b
                    end
       else begin  { nutrinti skai‡iai d ir   a arba b }
              if a = 0
                 then a := s - b
                 else b := s - a;
              d := a * b
            end
  end;

   var a, b, s, d: integer;
begin
  readln (a, b, s, d);   { pradiniai duomenys }
  nutrinti (a, b, s, d);
  writeln (a, ' ', b, ' ', s, ' ', d)
end.

