Дата некоторого дня определяется двумя натуральными числами: m (порядковый номер месяца) и n (число). По заданным n и m определ

[monokol]

Дата некоторого дня определяется двумя натуральными числами: m (порядковый номер месяца) и n (число). По заданным n и m определить дату следующего дня (принять, что n и m не опреде-ляют 31 декабря)

[Maxloki]

'Program data;
Uses crt;
Var m,n,k,s,p,f:byte;
Begin clrscr;
Write ('Введите порядковый номер месяца m:=');
Readln (m);
writeln;
Write ('Введите число n:=');
Readln (n);
If ((m=12) and (n=31)) then begin k:=1;
s:=1;
end else

If ((n=31) or (n=30) or (n=28) or (n=29)) then begin k:=m+1;
s:=1;
end;
If ((m=1) and (n=1)) then begin p:=12;
f:=31;
end;
If ((k=0) and (s=0)) then begin k:=m;
s:=n+1;
end;
If ((p=0) and (f=0) and (n=1)) then If ((m=1) or (m=5) or (m=7) or (m=10) or (m=12)) then begin p:=m-1; f:=30; end else
If m=3 then begin p:=m-1; f:=29; end else
If ((m=2) or (m=4) or (m=6) or (m=8) or (m=9) or (m=11)) then begin p:=m-1; f:=31 end;
If ((p=0) and (f=0)) then begin p:=m; f:=n-1; end;
Writeln ('Следующий день ',s,'.',k);
Writeln ('Предыдущий день ',f,'.',p);
End.'

[Maxloki]

В данном коде год принят за високосный и n и m в том числе могут определять 31 декабря (год во внимание не берется)!