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

program zz1;

var a:integer; / / заводим переменную

begin

write ('введите номер месяца '); / / вводим с клавиатуры номер месяца

read (a);

case a of / / в зависимости от введенного номера месяца выбираем выводимый ответ

1: writeln (' Январь ');

2: writeln (' Февраль ');

3: writeln (' Март ');

4: writeln (' Апрель ');

5: writeln (' Май ');

6: writeln (' Июнь ');

7: writeln (' Июль ');

8: writeln (' Август ');

9:writeln (' Сентябрь ');

10:writeln (' Октябрь ');

11:writeln (' Ноябрь ');

12:writeln (' Декабрь ');

end;

end.