SONGAY pascal

var t,n:longint;
begin
	assign(input,'songay.inp');reset(input);
	assign(output,'songay.out');rewrite(output);
	read(t,n);
	case t of
		1,3,5,7,8,10,12:write(31);
		4,6,9,11:write(30);
		2:
    		if (n mod 400=0) or ((n mod 100 <> 0) and (n mod 4 = 0)) then
        		write(29)
    		else
        		write(28);
	end;
end.