Question

По заданному числу (1-12)вывести название соответствующего месяца
решить задачу в паскале
1 постановка задачи
Величины:N-месяц
исходные данные :N
результат: Текстовое сообщение(наименование месяцев)
2.Формализация
Алг???
Перем.???
Начало
Вывод(введите месяц N= ');
Ввода(N)
program PROJECT
var???
begin???
заполните знаки вопроса

Answer 1

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

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