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. Mọi người giúp em với ạ. Mai em kiểm tra ạ ??

uses crt;

var t, n : integer;

begin

clrscr;

write('Nhap so thang, nam : '); readln(t, n);

if (t = 2) then

if ((n mod 400 = 0) or (n mod 4 = 0)) and (n mod 100 <> 0)

then write('Thang 2 co 29 ngay')

else write('Thang 2 co 28 ngay');

case t of

1, 3, 5, 7, 8, 10, 12 : write('Thang ', t ,' co 31 ngay');

4, 6, 9, 11 : write('Thang ', t ,' co 30 ngay');

end;

readln

end.

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.