Известна текущая дата и день недели. Вывести дату следующего дня

## var ds := ReadLnString('Введите дату в формате dd.mm.yyyy :');
var d : System.DateTime;
var w := |'sun', 'mon', 'tues', 'wed', 'thur', 'fri', 'sat'|;
if System.DateTime.TryParseExact(ds,'dd.mm.yyyy',System.Globalization.CultureInfo.InvariantCulture,System.Globalization.DateTimeStyles.None,d) then
  $'{d.AddDays(1):dd.mm.yyyy} {w[Ord(d.AddDays(1).DayOfWeek)]}'.Println else 'косяк в дате'.Println;

 
program Hello;
Type den=1..31;
     mas=01..12;
     god=1..2022;
var    g:god;
       m:mas;
       h:den;
begin 
 Writeln('Введите дату число месяц год');
 readln(h,m,g);
 case m of
 01,02,03,04,05,06,07,08,09,10,11:if(h<>31) then writeln('Следующий день это ',h+1,'.',m,'.',g)
                                            else writeln('Следующий день это ',01,'.',m+1,'.',g);
 12:if(h<>31) then writeln('Следующий день это ',h+1,'.',m,'.',g)  
              else writeln('Следующий день это 01.01.',g+1);
 end
end.

## uses system;
(new DateTime(ReadInteger('Введите год, месяц, день'), ReadInteger, ReadLnInteger)).
AddDays(1).DayOfWeek.
ToString.Print;

const
  md: array[1..12] of integer = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  dw: array[0..6] of string[11] = ('воскресенье', 'понедельник', 'вторник', 'среда',
                                   'четверг', 'пятница', 'суббота');
var
  d, m, y, a: integer;
begin
  write('Введите дату: число месяц год: ');
  readln(d, m, y);
  if (m = 2) and (d >= 28) and ((y mod 400 <> 0) and (y mod 4 <> 0) or (y mod 100 = 0)) then inc(d);
  if (y >= 1582) and (m in [1..12]) and (d in [1..md[m]]) then
    begin
      inc(d);
      if d > md[m] then
        begin
          d := 1;
          inc(m)
        end;
      if m > 12 then
        begin
          m := 1;
          inc(y)
        end;
      write('Следующая дата: ', d, '.', m, '.', y, ', ');
      a := (14 - m) div 12;
      y := y - a;
      m := m + 12 * a - 2;
      writeln(dw[(d + (31 * m) div 12 + y + y div 4 - y div 100 + y div 400) mod 7])
    end
  else writeln('Неверная дата');
  readln
end.

var
  d, m, y, a, md: integer;
begin
  write('Введите дату: число месяц год: ');
  readln(d, m, y);
  if (m = 2) and (d >= 28) and ((y mod 400 <> 0) and (y mod 4 <> 0) or (y mod 100 = 0)) then inc(d);
  case m of
    2: md := 29;
    1, 3, 5, 7, 8, 10, 12: md := 31;
    4, 6, 9, 11: md := 30
    else md := 0
  end;
  if (y >= 1582) and (d in [1..md]) then
    begin
      inc(d);
      if d > md then
        begin
          d := 1;
          inc(m)
        end;
      if m > 12 then
        begin
          m := 1;
          inc(y)
        end;
      write('Следующая дата: ', d, '.', m, '.', y, ', ');
      a := (14 - m) div 12;
      y := y - a;
      m := m + 12 * a - 2;
      case (d + (31 * m) div 12 + y + y div 4 - y div 100 + y div 400) mod 7 of
        0: writeln('воскресенье');
        1: writeln('понедельник');
        2: writeln('вторник');
        3: writeln('среда');
        4: writeln('четверг');
        5: writeln('пятница');
        6: writeln('суббота')
      end
    end
  else writeln('Неверная дата');
  readln
end.

type
  mon = (January, February, March, April, May, June, July, August, September, October, November, December);
  dow = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);

type
  mon = (January, February, March, April, May, June, July, August, September, October, November, December);
  dow = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);
var
  d, m, y, a, md: integer;
begin
  write('Enter date: day month year: ');
  readln(d, m, y);
  if (m = 2) and (d >= 28) and ((y mod 400 <> 0) and (y mod 4 <> 0) or (y mod 100 = 0)) then inc(d);
  case m of
    2: md := 29;
    1, 3, 5, 7, 8, 10, 12: md := 31;
    4, 6, 9, 11: md := 30
    else md := 0
  end;
  if (y >= 1582) and (d in [1..md]) then
    begin
      inc(d);
      if d > md then
        begin
          d := 1;
          inc(m)
        end;
      if m > 12 then
        begin
          m := 1;
          inc(y)
        end;
      write('Next date: ', d, ' ', mon(m-1), ' ', y, ', ');
      a := (14 - m) div 12;
      y := y - a;
      m := m + 12 * a - 2;
      writeln(dow((d + (31 * m) div 12 + y + y div 4 - y div 100 + y div 400) mod 7))
    end
  else writeln('Invalid date');
  readln
end.

type
  mon = (января, февраля, марта, апреля, мая, июня, июля, августа, сентября, октября, ноября, декабря);
  dow = (воскресенье, понедельник, вторник, среда, четверг, пятница, суббота);
begin
  var (d, m, y) := ReadInteger3('Введите дату: день номер месяца год:');
  if (m = 2) and (d >= 28) and ((y mod 400 <> 0) and (y mod 4 <> 0) or (y mod 100 = 0)) then inc(d);
  var md: integer;
  case m of
    2: md := 29;
    1, 3, 5, 7, 8, 10, 12: md := 31;
    4, 6, 9, 11: md := 30
    else md := 0
  end;
  if (y >= 1582) and (d in 1..md) then
    begin
      d += 1;
      if d > md then
        begin
          d := 1;
          m += 1
        end;
      if m > 12 then
        begin
          m := 1;
          y += 1
        end;
      $'Следующая дата: {d} {mon(m-1)} {y},'.Print;
      var a := (14 - m) div 12;
      y := y - a;
      m := m + 12 * a - 2;
      Print(dow((d + (31 * m) div 12 + y + y div 4 - y div 100 + y div 400) mod 7))
    end
  else 'Неверная дата'.PrintLn
end.

uses
  DateUtils, Sysutils;
const
  mon: array[1..12] of string = ('January', 'February', 'March', 'April', 'May',
    'June', 'July', 'August', 'September', 'October', 'November', 'December');
  dow: array[1..7] of string = ('Sunday', 'Monday', 'Tuesday', 'Wednesday',
    'Thursday', 'Friday', 'Saturday');
var
  s: string;
  dt: TDateTime;
begin
  DateSeparator := ' ';
  write('Enter date: day month year: ');
  readln(s);
  Try
    dt := StrToDateTime(s);
  except
    writeln('Invalid date');
    readln;
    exit
  end;
  dt := IncDay(dt);
  writeln('Next day: ', DayOf(dt), ' ', mon[MonthOf(dt)], ' ', YearOf(dt), ', ', dow[DayOfWeek(dt)]);
  readln
end.

##
  var mon: array[1..12] of string := ('января', 'февраля', 'марта', 'апреля', 
    'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');
  var dow: array[System.DayOfWeek] of string := ('воскресенье', 'понедельник', 
    'вторник', 'среда', 'четверг', 'пятница', 'суббота');
  var (d, m, y) := ReadInteger3('Введите день номер месяца год:');
  var dt: DateTime;
  if DateTime.TryParse(m.ToString + '/' + d.ToString + '/' + y.ToString, dt) then
    begin
      dt := dt.AddDays(1);
      $'Следующая дата: {dt.Day} {mon[dt.Month]} {dt.Year} года, {dow[dt.DayOfWeek]}'.Print
    end
  else 'Неверная дата'.Print

type
  dw = (понедельник, вторник, среда, четверг, пятница, суббота, воскресенье);
  mon = (января, февраля, марта, апреля, мая, июня, июля, августа, сентября, октября, ноября, декабря);
var d, m, y, dim:integer;  
begin
  write('Введите дату: день номер месяца год: ');
  readln(d,m,y);
  if (m = 2) and (d >= 28) and ((y mod 400 <> 0) and (y mod 4 <> 0) or (y mod 100 = 0)) then d:=d+1;
  case m of
    1, 3, 5, 7, 8, 10, 12:dim:= 31;
    4, 6, 9, 11:dim:=30;
    2:dim:=29
    else dim:=0
  end;
  if (y>=1582) and (d in 1..dim) then
    begin
      d:=d+1;
      if d>dim then
        begin
          d:=1;
          m:=m+1;
        end;
      if m>12 then
        begin
          m:=1;
          y:=y+1;
        end;
      println;
      $'Дата следующего дня: {d} {mon(m-1)} {y},'.Print;
      var a := (14 - m) div 12;
      y := y - a;
      m := m + 12 * a - 2;
      Print(dw((d + (31 * m) div 12 + y + y div 4 - y div 100 + y div 400) mod 7-1))
    end
  else 'Дата неверная!'.
  println;
end.