Помогите пожалуйста!
Пользователь вводит число, если это число равно 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.