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

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.