По введенному номеру месяца определить название месяца. - Turbo Pascal

Формулировка задачи:

По введенному номеру месяца определить название месяца. Люди помогите написать программу буду очень благодарен! заранее спасибо!

Решение задачи: «По введенному номеру месяца определить название месяца.»

Листинг программы

var m:byte;
begin
write('Введите номер месяца: ');
readln(m);
case m 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('декабрь');
else write('Такого месяца нет!');
end;
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal пользователь вводит номер месяца от 1 до 12. Затем, в зависимости от введенного номера, программа выводит соответствующее название месяца. Если введенный номер не соответствует ни одному из месяцев, программа выводит сообщение Такого месяца нет!.