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

var a:integer; begin write('Введите номер месяца:');read(a); case a of 1: 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.