10 a%=((14-mon%)/12)
20 y%=year%-a%
30 m%=mon%+12*a%-2
40 d%=7000+(day%+y%+y%/4-y%/100+y%/400+(31*m%)/12)
50 data%=mod(d%,7)
60 print data%


: day% - 
mon% - 
year% - 
:
0 - 
1 -   ..


: kiriman
  : annimon.com