[shpionka]

ребят, помогите пожалуйста нужно для курсовика сделать задачу иллюстрирующию применение вот этого модуля

Код:

Unit Calendar;
Interface
    Type
    Days=(Mon,The,Wed,Thu,Fri,Sat,Sun);
    WorkingDays=Mon..Fri;
    Months=(Jan,Feb,Mar,Apr,May,June,July,Aug,Sept,Oct,Nov,Decem);
    Summer=June..Aug;
    Autumn=Sept..Nov;
    Spring=Mar..May;
DayNo=1..31;
YearNo=2000..2200;
Date=record
    Day: DayNo;
    Month: Months;
    Year:YearNo;
End;
Implementation
End.

задача может быть любой главное просто показать как рабоает этот модуль....помогите пожалуйста!!!!!!!!!!!!!
сразу огромное спасибо!!!!!
и извиняюсь если что не так сказала....