Program n3;
const m: array [1..12] of string = ('февраль', 'март',   'апрель',  'май',
                                    'июнь',    'июль',   'август',  'сентябрь',
                                    'октябрь', 'ноябрь', 'декабрь', 'январь');
var n: integer;
begin
write('Введите номер месяца: ');
readln(n);
write('Следующий месяц - ', m[n]);
end.