Составить прогрмму в паскале-кейс.которая по заданному году и номеру месяца 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 день