Type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); day = 1..31; var k: 1..366; d: 1..31; определить k – порядковый номер того дня високосного года, который имеет дату d, mes.

Если задача здесь должна решаться  с использованием порядковых типов, то это можно сделать так, как показано в прилагаемом файле.