program inngay
uses crt;
var ngay, d, m, y: integer;
BEGIN
clrscr;
Write('Nhap ngay: '); Readln(d);
Write('Nhap thang: '); Readln(m);
Write('Nhap nam: '); Readln(y);
CASE m of
1,3 4, 5, 6, 10,12: ngay:=31;
4,6,9,11: ngay:= 30
2: ((y mod 100=0) and (y mod 400=0)) or (y mod 4=0) then ngay:=29 else ngay:=28;
end;
if (d + 1 > ngay) and (m <> 12)then m:=m+1 else begin
y:=y+1;
m:=1;
d:=1;
end;
Writeln('Ngay sau ngay vua nhap la: ',d,'/',m,'/',y);
readln;
END.
