求神犇

var n,i,j,t,k,day:longint;a:array[1..7] of longint;
begin
   readln(n);
   for i:=1900 to 1900+n-1 do
    for j:=1 to 12 do
    begin
       case j of
          1,3,5,7,8,10,12:t:=31;
          4,6,9,11:t:=30;
          2:if (j mod 4=0) and (j mod 100<>0) or (j mod 400=0) then t:=29
                                                                else t:=28;
       end;
       for k:=1 to t do
       begin
          inc(day);
          if day=8 then day:=1;
          if k=13 then inc(a[day]);
       end;
    end;
   writeln(a[6],' ',a[7],' ',a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5]);
end.