Напишите прогрумму, которая по месяцу, будет выводить его название
1-январь
2-февраль и тд
Помогиите

vara:integer;beginwrite('Введите номер месяца:');read(a);case a of1: write('Январь');2: write('Февраль');3: write('Март');4: write('Апрель');5: write('Май');6: write('Июнь');7: write('Июль');8: write('Август');9: write('Сентябрь');10: write('Октябрь');11: write('Ноябрь');12: write('Декабрь');end;end.