Напишите пожалуйста программу в Паскале:Написать программу,которая по номеру месяца выводит название следующего за ним месяца(с помощью оператора case) Например: если я ввожу 2 должно выйти март

program c;vara:byte;beginread(a);if a = 1 then write('Январь') else if a=2 then write('Февраль') else if a=2 then write('Март')else if a=2then 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.