type месяц = (янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек);
var k: 1..366; d: 1..31; m: месяц;
Определить d, m – дату k-го по счету дня високосного года.
Язык программирования Паскаль, помогите пожалуйста.