[Row]

Дано:

Код:

type месяц = ( янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек );
var k1:1..366; d:1..31; m:месяц;

Найти:
d, m - дату k-го по счету дня невисокосного года (о присвоенных значениях сообщить).

Задачку решил, используя case для вычислений, но беда в том, что использовать его можно только для вывода...
все вычисления должны происходить до него...

Не прошу решить полностью, хотя бы натолкните в какую сторону думать. Буду очень благодарен