{
TASK: VEKSP
LANG: PASCAL
}

program veksp;
  const inpFile = 'EKSP.IN';
        outFile = 'EKSP.OUT';
  var f: text;
      d1, h1, m1, d2, h2, m2, a1, a2: integer;
      kiek: integer;

  function veksperimentas(d1, h1, m1, d2, h2, m2: integer; var a1, a2 :integer) :integer;
  begin
    a1 := (7 * 24 * 60 - (d1 * 24 * 60 + h1 * 60 + m1)) + d2 * 24 * 60 + h2 * 60 + m2;
    a2 := -1;
    if (h1 = h2) and (m1 = m2)
      then veksperimentas := 1
      else
        begin
          a2 := (7 * 24 * 60 - (d2 * 24 * 60 + h2 * 60 + m2)) + d1 * 24 * 60 + h1 * 60 + m1;
          veksperimentas := 2;
        end;
  end;

begin
  assign(f, inpFile);
  reset(f);
  readln(f, d1, h1, m1);
  readln(f, d2, h2, m2);
  close(f);

  kiek := veksperimentas(d1, h1, m1, d2, h2, m2, a1, a2);

  assign(f, outFile);
  rewrite(f);
  writeln(f, a1);
  if kiek = 2
    then writeln(f, a2);
  close(f);
end.