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.