Viết chương trình nhập vào ngày tháng năm. In ra màn hình ngày sau ngày vừa nhập.

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.