Составить прогрмму в паскале-кейс.

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