Составить прогрмму в паскале-кейс.которая по заданному году и номеру месяца m определяет оличество дней в этом месяце

var   n, y: integer; begin   write('Введите месяц (1-12) и год (2001-2099): ');   readln(n, y);   case n of     1, 3, 5, 7, 8, 10, 12: writeln('31 день');     4, 6, 9, 11: writeln('30 дней');     2: if y mod 4 = 0 then write('29 дней') else write('28 дней')   end end. Тестовое решение: Введите месяц (1-12) и год (2001-2099): 7 2014 31 день