Nhập 1 tháng và 1 năm. Đưa ra màn hình số ngày của tháng đó. Biết năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100.

Program NN;
Uses crt;
Var n,t: longint;
Begin
        Clrscr;
        Write(‘Nhap thang, nam: ‘); Readln(t,n);
        If (t=2) and (n mod 4=0) then Write(’29’)
        Else if (t=2) and (n mod 4 <> 0) then Write(’28’);

        If t in [1,3,5,7,8,10,12] then Write(’31’);
        If t in [4,6,11] then Write(’30’);
        Readln
End.