Напишите программу потзаданному номеру месяца выводилось его название и указано количество дней в месяце

Паскаль    Var month:integer;   Begin  readln(month); if ((month >0 ) and ( month < 13)) then case month of 1 : writeln ('Январь (31 день) '); 2 : writeln ('Февраль (28 дней) '); 3 : writeln ('Март (31 день)'); 4 : writeln ('Апрель (31 день) '); 5 : writeln ('Май (28 дней)'); 6 : writeln ('Июнь (31 день'); 7 : writeln ('Июль (31 день) '); 8 : writeln ('Август (28 день) '); 9 : writeln ('Сентябрь (31 день'); 10 : writeln ('Октябрь (31 день) '); 11 : writeln ('Ноябрь (28 дней) '); 12: writeln ('Декабрь (31 день)'); end else writeln('Ошибка'); End.