Вычислить дату следующего дня - Turbo Pascal - Ответ 15366078

Program data;
var
  ch,m,g:integer;
Begin
  writeln('Введите число месяц год ');
  read(ch);
  read(m);
  read(g);
 case m of
 01,03,05,07,08,10:if ch=31 then writeln('Следующий день:',01,'.', m+01,'.',g)
 else writeln('Следующий день:',ch+1,'.' ,m,'.' ,g);
 04,06,09,11: if ch=30 then writeln('Следующий день:',01,'.', m+01,'.',g)
 else writeln('Следующий день:',ch+1,'.' ,m,'.' ,g);
 12: if ch=31 then writeln('Следующий день:',01,'.', m-11,'.',g+1)
 else writeln('Следующий день:',ch+01,'.' ,m,'.' ,g);
 02: if((g mod 4=0)and(g mod 100<>0))or(g mod 400=0) then 
   begin
    if ch=29 then writeln('Следующий день:',01,'.',m+1,'.',g)
    else writeln('Следующий день:',ch+1,'.',m,'.',g);
   end
   else if ch=28 then writeln('Следующий день:',01,'.',m+1,'.',g)
   else writeln('Следующий день:',ch+1,'.',m,'.',g);
 end; 
end.