Question

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.