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