a:array[0..6]?of?longint;
i,j,n,days,y,x,m,s:longint;
begin
readln(n);
fillchar(a,sizeof(a),0);
y:=1;
m:=0;
x:=13;
for?i:=1900?to?1899+n?do
begin
for?j:=1?to?12?do
begin
case?j?of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:begin
if?(i?mod?400=0)or(i?mod?4=0)and(i?mod?100<>0)?then?days:=29?else?days:=28;
end;
end;
inc(a[(x+y-1)?mod?7]);
m:=days?mod?7;//這裏是算壹個月之後的1號的星期幾增加了幾，是壹個增量
s:=y;//
if?s+m=7?then?y:=7?//y是上個月的1號星期幾，加上增量就求到了這個月1號星期幾而且?這裏應該是這樣才對。
else?y:=(m+s)?mod?7;?//?這樣處理是將0的情況變成7，星期零就是星期天
end;
end;
write(a[1],'?',a[2],'?',a[3],'?',a[4],'?',a[5],'?',a[6],'?',a[0]);
end.