giải tin học 8 bài tập pascal hãy viết chương trình pascal nhập vào một tháng bất kì kiểm tra tháng đó có bao nhiêu ngày

program demngay;

uses crt;

var n,t:integer;

begin

     clrscr;

     write(‘Nhap nam: ‘);   readln(n);

     write(‘Nhap thang: ‘);   readln(t);

     case t of

          1,3,5,7,8,10,12:write(‘Thang ‘,t,’ cua nam ‘,n,’ co 31 ngay’);

          4,6,9,11: write(‘Thang ‘,t,’ cua nam ‘,n,’ co 30 ngay’);

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

               write(‘Thang 2 cua nam ‘,n,’ co 29 ngay’)

             else write(‘Thang 2 cua nam ‘,n,’ co 28 ngay’);

     end;

     readln;

end.