Месяца напишите программаны, который выпускает, следующее наименование месяца посмотрев раз нөмеріне. (если есть здешний m=1, февральский месяц, 4 - май, 12 января)

Program c;
var
a:byte;
begin
read(a);
if a = 1 then write('Январь') else if a=2 then write('Февраль') else if a=2 then write('Март')else if a=2
then write('Апрель')else if a=2 then write('Май')else if a=2 then write('Июнь')else
if a=2 then write('Июль')else if a=2 then write('Август')else if a=2 then write('Сентябрь')else
if a=2 then write('Октябрь')else if a=2 then write('Ноябрь')else if a=2 then write('Декабрь');
end.
Вроде так, но не уверен