переменная целого типа x определяет порядковый номер месяца невысокосного года.оператор CASE по порядковому номеру месяца выводит количество дней в данном месяце сделать программу на pascal

var N:integer;

BEGIN

readln(N);

case N of

1,3,5,7,8,10,12:write('31');

4,6,9,11:write('30');

2:write('28');

end;

end.