uses crt;
var t, n : integer;
begin
clrscr;
write('Nhap so thang, nam : '); readln(t, n);
if (t = 2) then
if ((n mod 400 = 0) or (n mod 4 = 0)) and (n mod 100 <> 0)
then write('Thang 2 co 29 ngay')
else write('Thang 2 co 28 ngay');
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;
readln
end.