求Pascal程序：输入年、月、日，输出该天是星期几？

公式w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1
w：星期；
c：世纪-1；
y：年（两位数）；
m：月（m大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算）；
d：日；
[ ]代表取整，即只要整数部分。(C是世纪数减一，y是年份后两位，M是月份，d是日数。1月和2月要按上一年的13月和 14月来算，这时C和y均按上一年取值。)
算出来的W除以7，余数是几就是星期几。如果余数是0，则为星期日。

你这个得给个初始日期啊，比如什么1900年1月1号算星期一之类的。。。要是没有初始的话，程序没法写啊

套用蔡勒公式很简单的一个程序