do
input""y,m,d
if!y end
if m<3m=m+12:y=y-1
?mod(y+int(y/4)-int(y/100)+int(y/400)+int(2.6*m+1.6)+d,7)loop