3
{ This program demonstrates the IsValidDateMonthWeek function }
5
Uses SysUtils,DateUtils;
12
For Y:=2000 to 2004 do
19
B:=IsValidDateMonthWeek(Y,12,W,D);
22
Writeln('December ',Y,' has exactly ',W,' weeks.')
24
Writeln('December ',Y,' has ',W,' weeks and ',D-1,' days.');
b'\\ No newline at end of file'