Số ngày trong tháng

Lập trình để tính số ngày của tháng t năm n bất kì nhập từ bàn phím.
                                                                 Giải
Program B106;
Var
    t,n,sn:Integer;
Function Dcount(t,n:Integer):Integer;
   Var
        Sn:Integer;
    Begin
         Case t of
               1,3,5,7,8,10,12: Sn:=31;
               4,6,9,11: Sn:=30;
               2: If (n Mod 4 = 0) And (n Mod 100 <> 0) or (n mod 400 = 0) Then Sn:=29
                   Else Sn:=28;
         Else
              Sn:=0;
         End;
         Dcount:=Sn;
   End;
BEGIN
       Write('Nhap thang '); Readln(t);
       Write('       nam '); Readln(n);
       Write('=> So ngay cua thang ',t,' nam ',n,' la: ',Dcount(t,n),' ngay.');
       ReadLn;
END.