Pascal :

program es5;
var a,b,c:integer;
begin
  readln(a,b);
  if b=1 then c:=31;
  if b=3 then c:=31;
  if b=5 then c:=31;
  if b=7 then c:=31;
  if b=8 then c:=31;
  if b=10 then c:=31;
  if b=12 then c:=31;
  if b=4 then c:=30;
  if b=6 then c:=30;
  if b=9 then c:=30;
  if b=11 then c:=30;
  if b=2 then if (a mod 4=0)and(a mod 100<>0) or (a mod 400=0) then c:=29
                     else c:=28;
  writeln(c);
end.