声明：const MinsPerDay = 1440;

描述：MinsPerDay常量给出了一天之中共有多少分钟（24*60＝1440）。

begin
ShowMessage('Number of minutes in a week = '+IntToStr(MinsPerDay*7));
ShowMessage('Number of seconds in a week = '+IntToStr(SecsPerDay*7));
end;

程序运行结果：

Number of minutes in a week = 10080

Number of seconds in a week = 604800