Пользователь вводит число, если это число равно 1 , то это январь, если равно 2 , то это февраль , 3 - это март. и т.д. 12 месяцев.

{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);

VAR
  Num: INTEGER;

BEGIN
  WRITE('Введите номер месяца: ');
  READ(Num);
  CASE Num 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.