Паскаль:

var mec:integer;

begin

readln(mec);

case mec 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('Декабрь');

else writeln('Нет такого месяца!');

end

end.

Объяснение: