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

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.