Поделитесь своими знаниями, ответьте на вопрос:
По заданному числу (1-12)вывести название соответствующего месяца решить в паскале 1 постановка величины: n-месяц исходные данные : n результат: текстовое сообщение(наименование месяцев) 2.формализация начало вывод(введите месяц n= '); ввода(n) program project заполните знаки вопроса
a: array[1..12]of string := ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'авгус', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
k: integer;
begin
readln(k);
writeln(a[k]);
end.