ПРОГРАММИРОВАНИЕ PascalABC Вводится цифра месяца (от 1 до 12 В зависимости от цифры вывести название месяца. Например, 1 = январь, 5 = май.​

var

 a: integer;

begin

 writeln('Введите число от 1 до 12:');

 readln(a);

 case a of

   1: writeln('Январь');

   2: writeln('Февраль');

   3: writeln('Март');

   4: writeln('Апрель');

   5: writeln('Май');

   6: writeln('Июнь');

   7: writeln('Июль');

   8: writeln('Август');

   9: writeln('Сентябрь');

   10: writeln('Октябрь');

   11: writeln('Ноябрь');

   12: writeln('Декабрь');

 end;

end.