Question

Вопрос жизни и смерит.Помогите пожалуйста решить задачу на типы данных(я совсем не понимаю,как с ними работать)
Дано:
type
     число = 1..31;
     месяц = 1..12;
     год = 1..2000;
     дата = record
             ч : число;
             м : месяц;
             г : год
           end;
    ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);

Считая, что все даты даются по григорианскому календарю (по «новому стилю»), описать:функцию Пятница13(d), которая определяет количество дней до даты d, которые были пятницами 13-ого числа.

45 страница , задание 6.5