Решение задачи Case 9

#include <stdio.h>
 
int main(void)
{
   int d,m;
   printf("День:") ;
   scanf ("%i", &d);
   printf("Месяц:") ;
   scanf ("%i", &m);
 
   switch (m) {
   case 1:
   case 3:
   case 5:
   case 7:
   case 8:
   case 10:
   case 12:
       if (d==31) d=0;
       break;
   case 4:
   case 6:
   case 9:
   case 11:
       if (d==30) d=0;
       break;
   case 2:
       if (d==28) d=0;
       break;
   }
 
   if (d==0)
       if (m==12) m=1;
       else m++;
   
   d++;
   printf("%i.%i\n",d,m);
   return 0;
}

import random

M = random.randrange(1,13)
#M=12
month = {
    1: 31,
    2: 28,
    3: 31,
    4: 30,
    5: 31,
    6: 30,
    7: 31,
    8: 31,
    9: 30,
    10: 31,
    11: 30,
    12: 31
}
try:
    D_Max = month[M]
    D = random.randrange(1,D_Max+1)
    #D = 31
    print("Дата:")
    print("Месяц: {0}. День: {1}".format(M,D))
    if D < D_Max:
        D += 1
    else:
        D = 1
        if M == 12:
            M = 1
        else:
            M +=1
    print("Следующая дата:")
    print("Месяц: {0}. День: {1}".format(M,D))
except KeyError as e:
    print('Ошибка')
									

program Case9;
var
  D,M:Integer;
begin
  Write('Введите день: ');
  Readln(D);
  Write('Введите номер месяца: ');
  Readln(M);
  D:=D+1;
  Case M of
   1,3,5,7,8,10 : if D>31 then
     begin
      D:=1;
      M:=M+1;
     end;
   4,6,9,11 : if D>30 then
     begin
      D:=1;
      M:=M+1;
     end;
   2 : if D>28 then
     begin
      D:=1;
      M:=M+1;
     end;
   12: if D>31 then
     begin
      D:=1;
      M:=1;
     end;
  end;
  Writeln ('Предыдущая дата: ',D,'.',M);
end.