program treciasis_tukstantmetis;
  uses dos;

  function menesio_dienos (menuo: word): word;
  { kiek duotasis 2000 met— m‚nuo turi dien— }
  begin
    case menuo of
      4, 6, 9, 11: menesio_dienos := 30;
      2:   menesio_dienos := 29; { 2000-ieji - keliamieji metai }
      else menesio_dienos := 31;
    end;
  end; { m4nesio dienos }

  procedure rasti_dienas (var dienos: word);
  { suskai‡iuoja kiek dien— liko iki t–kstantme‡io prad‘ios }
    var i, metai, menuo, diena, sav_diena: word;
  begin
    getdate (metai, menuo, diena, sav_diena);
    { imame likusias dabartinio m‚nesio dienas }
    dienos := menesio_dienos(menuo) - diena;
    for i := menuo+1 to 12 do
      dienos := dienos + menesio_dienos (i)
  end; { rasti_dienas }

  procedure rasti_val_min_sek (var valandos, minutes, sekundes: word);
  { suskai‡iuoja valand—, minu‡i— bei sekund‘i—, likiusi— iki t–kstantme‡io }
  { prad‘ios, skai‡i— }
    var val, min, sek, sek100: word;
  begin
    gettime (val, min, sek, sek100);
    valandos := 23 - val;
    minutes := 59 - min;
    sekundes := 59 - sek;
  end; { rasti val_min_sek }


  var dienos, valandos, minutes, sekundes: word;
begin
  rasti_dienas (dienos);
  rasti_val_min_sek (valandos, minutes, sekundes);
  writeln (dienos, ' ', valandos, ' ', minutes, ' ', sekundes);
end.