По заданному числу (1-12)вывести название соответствующего месяца решить в паскале 1 постановка величины: n-месяц исходные данные : n результат: текстовое сообщение(наименование месяцев) 2.формализация начало вывод(введите месяц n= '); ввода(n) program project заполните знаки вопроса

Var
    a: array[1..12]of string := ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'авгус', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
    k: integer;

begin
    readln(k);
    writeln(a[k]);
end.