Дан порядковый номер месяца, вывести на экран его название паскаль

Var A:byte; Begin WriteLn('Введи номер месяца'); 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.