var
  year:1..10000;
  month:1..12;
  days:28..31;
begin
  read(year,month);
  case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:if(year mod 4=0) and (year mod 100<>0) or (year mod 400=0)
then days:=29
else days:=28
end;{case}
write(days);
end.
/**************************************************************
	Problem: 1825
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/