var y,m,d:word;begin{$I-}repeat read(y,m,d);If m<3then begin y:=y-1;m:=m+12;end;WriteLn((y+y div 4-y div 100+y div 400+(26*m+16)div 10+d)mod 7)until Ioresult<>0;end.