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

Паскаль Var month: integer; Begin readln (month); if (month >0) and (month < 13) thencase month of1: 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 день) '); endelse writeln ('Ошибка'); End.