Program gdgf;
function ndm(d:integer; m:byte; y:word):byte;
var
dz:integer;
mz:integer;
yz:integer;
BEGIN
writeln('vvedite daty');
readln(d,m,y)
if m=2 then
if (y mod 4=0) and (y mod 100<>0) or (y mod 400=0)
then ndm=29 else ndm=28
else
if m in [1,3,5,8,10,12]
then ndm=31 else ndm=30;
end;
if d<ndm(m,y) then begin dz=d+1; mz=m; yz=y; end
else if m<>12 then begin dz=1; mz=m+1; yz=y; end
else begin dz=1; mz=1; yz=y+1; end;
writeln('zavta bydet chiclo'dz,'meciac'mz,'god'yz);
end.