Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год - Turbo Pascal

Формулировка задачи:

Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год.Через case

Решение задачи: «Написать программу которая выводит на экран название года по восточному календарю с 2000-2014 год»

Листинг программы

var
 n: 2000..2014; {проверка диапазона}
 
begin
 write('Введите год (2000-2014): ');
 readLn(n);
 case n of 
  2000, 2012: write('Год Дракона');
  2001, 2013: write('Год Змеи');
  2002, 2014: write('Год Лошади');
  2003: write('Год Козы');
  2004: write('Год Обезьяны'); 
  2005: write('Год Петуха'); 
  2006: write('Год Собаки');
  2007: write('Год Свиньи');
  2008: write('Год Крысы'); 
  2009: write('Год Быка');
  2010: write('Год Тигра');
  2011: write('Год Кота');
 end;
 readln;
end.

Объяснение кода листинга программы

Создается переменная n типа 2000..2014, которая будет использоваться для хранения введенного пользователем года.
Выводится сообщение Введите год (2000-2014): для запроса у пользователя нужного года.
С помощью функции readLn(n) происходит чтение введенного пользователем значения и сохранение его в переменной n.
Используется оператор case для проверки введенного пользователем года и определения соответствующего названия года восточного календаря.
Выводится нужное название года восточного календаря в зависимости от введенного пользователем года.
Завершается программа вызовом функции readln(), чтобы пользователь мог продолжить ввод данных.