type
  TMonth = (
    Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec
  );
const
  DayInMonth: array[TMonth] of byte = (
    31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  );

var
  day, month, year: integer;
  mth: TMonth;

begin

  write('DD/MM/YYYY: '); readln(day, month, year);
  mth := TMonth(Pred(month));
  if ((year mod 4) = 0) and
     not (((year mod 100) = 0) and ((year mod 400) <> 0))
  then inc(DayInMonth[Feb]);

  if day < DayInMonth[mth] then inc(day)
  else begin
    day := 1;
    if mth <> Dec then mth := succ(mth)
    else begin
      mth := Jan; inc(year);
    end
  end;

  writeln('Tomorrow: ', day:3, succ(ord(mth)):3, year:5);
  writeln('quart: ', (ord(mth) div 3) + 1);


end.