t_7_30_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
по дате определить дату следующего дня}
case y of
1904,1908,...2096: {все високосные}
case m of
    дек : case d of
                1..30 : d1:=succ(d);
                31    : begin d1:=1; m1:=янв; y1:=succ(y); end;
          end;
    янв, мар, май, июл, авг, окт : case d of
                    1..30 : d1:=succ(d);
                    31    : begin d1:=1; m1:=succ(m); end;
                                   end;
    апр, июн, сен, нояб : case d of
                              1..29 : d1:=succ(d);
                              30    : begin d1:=1; m1:=succ(m); end;
                          end;
    фев : case d of
                 1..27 : d1:=succ(d);
                 28    : begin d1:=1; m1:=succ(m); end;
          end;
case y of
1901,1902,1903,1905...2099: {все не високосные}
case m of
    дек : case d of
                1..30 : d1:=succ(d);
                31    : begin d1:=1; m1:=янв; y1:=succ(y); end;
          end;
    янв, мар, май, июл, авг, окт : case d of
                    1..30 : d1:=succ(d);
                    31    : begin d1:=1; m1:=succ(m); end;
                                   end;
    апр, июн, сен, нояб : case d of
                              1..29 : d1:=succ(d);
                              30    : begin d1:=1; m1:=succ(m); end;
                          end;
    фев : case d of
                 1..28 : d1:=succ(d);
                 29    : begin d1:=1; m1:=succ(m); end;
          end;