viết chương trình vào 1 tháng và năm bất kì.Kiểm tra xem tháng đó có bao nhiêu ngày.Biết năm nhuận là năm chia hết cho 4 nhưng không chia hết cho 100 hoặc chia hết cho 400 Help@@@

uses crt;
var a,b:longint;
begin
clrscr;
   write('Thang: '); readln(a);
   write('Nam: '); readln(b);
   case a of
      1,3,5,7,8,10,12: writeln('Thang ',a,' co 31 ngay');
      4,6,9,11: writeln('Thang ',a,' co 30 ngay');
      else if (a=2) and (b mod 4=0) and (b mod 100<>0) then
         writeln('Thang ',a,' co 29 ngay');
      else if (a=2) and (b mod 400=0) then writeln('Thang ',a,' co 29 ngay')
      else writeln('Thang ',a,' co 28 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.