Ответ:

(см. объяснение)

Объяснение:

Решение в 1 строчку кода:

##

seq('Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь').ElementAt(ReadInteger - 1).Print;

Возможно также решение через case или if.

Задание выполнено!

Відповідь:

Пояснення:

program ;

var a: integer;

begin

writeln('ââåäèòå ÷èñëî ìåñÿöà');

readln(a);

if a=1 then writeln('ñåé÷àñ ÿíâàðü');

if a=2 then writeln('ñåé÷àñ ôåâðàëü');

if a=3 then writeln('ñåé÷àñ ìàðò');

if a=4 then writeln('ñåé÷àñ àïðåëü');

if a=5 then writeln('ñåé÷àñ ìàé');

if a=6 then writeln('ñåé÷àñ èþíü');

if a=7 then writeln('ñåé÷àñ èþëü');

if a=8 then writeln('ñåé÷àñ     ');

if a=9 then writeln('ñåé÷àñ ñåíòÿáðü');

if a=10 then writeln('ñåé÷àñ îêòÿáðü');

if a=11 then writeln('ñåé÷àñ íîÿáðü');

if a=12 then writeln('ñåé÷àñ äåêàáðüü');

readln;

end.