Sửa chổ (t=2) mà ko phải dùng case..of

Var t,n:integer
WriteLn('nhap nam:');ReadLn(n);
 WriteLn('nhap thang:');ReadLn(t);
   if (t=2) and (n mod 4)=0 then WriteLn('29 ngay') else WriteLn('28 ngay');
   if t in [1,3,5,7,8,10,12] then WriteLn('31 ngay');
   if t in [4,6,9,11] then WriteLn('30 ngay');
MN chỉ em sửa chổ (t=2) mà ko phải dùng case..of với ạ