День недели по числу и месяцу, Задача Опции

[*alt]

Считая, что год високосный и 1 января приходится на день недели wd1, определить wd - день недели, на который приходится день с датой d,m.
Данные:

Код

type Tmon = (jnr, fbr, mar, apr, may, jun, jly, aug, sep, oct, nov, dec);
       Tday = (mon, twu, wen, thr, fry, sat, sun);
var d:1..31;
      m:Tmon;
      wd1,wd:Tday;

Есть предложения, но как их оформить подобающе (только начинаю изучать язык):
Посчитать количество дней с начала года до заданного дня (просуммировать в цикле количество дней во всех месяцах от января до m-1, прибавить d). Полученный результат разделить на 7 и найти остаток от деления (остаток:=дней_с_начала_года mod 7). Если первый день года - понедельник, номер дня недели будет равен остатку (считая, что понедельник имеет номер 1). Если первый день - не понедельник, то считайте остаток как (дней_с_начала_года+смещение) mod 7. (например, если первый день - вторник, то смещение=1). Если остаток от деления равен 0, то это воскресенье.

Вот так, как?

__________
Мозгов у нас предостаточно, но они в основном набекрень

[volvo]

Посчитать количество дней с начала года до заданного дня

Задачи связанные с календарем.
Посмотри в варианте Amro, как это сделано... Ну, и в моем варианте это присутствует...