program qiuzhouci(input,output);
 var len,czdate,czyue,zc,month,dates,days:integer;
 begin
   czyue:=12;
   czdate:=23;
   zc:=18;

   write('please input month:');read(month);
   write('please input date:' );read(dates);

   case month of
     12:len:=dates-czdate;
      1:len:=dates+31-czdate;
   else write('error!');
   end;
   zc:=zc+len div 7;
   writeln('zhe shi di ',zc,' zhou.');
end.