Viết chương trình nhập 1 tháng bất kì rồi đưa ra màn hình số ngày của tháng đó Pascal

uses crt;

var t : integer;

begin

clrscr;

write('Nhap so thang : '); readln(t);

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; if t = 2 then write('Thang 2 co 28 hoac 29 ngay');

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.