Дан год. Вывести ** экран название животного, символизирующего заданный год по восточному...

Question

Дан год. Вывести на экран название животного, символизирующего заданный
год по восточному календарю. Выполнить надо желательно с оператором case.

Answer 1

Var
  y:integer;
  s:string;
 
begin
  Write('Введите год (800-3000): ');
  Readln(y);
  y:=(y-800) mod 12;
  case y of
  0:s:='Дракон';
  1:s:='Змея';
  2:s:='Лошадь';
  3:s:='Коза (овца)';
  4:s:='Обезьяна';
  5:s:='Петух';
  6:s:='Собака';
  7:s:='Свинья (кабан)';
  8:s:='Крыса (мышь)';
  9:s:='Бык (корова)';
  10:s:='Тигр';
  11:s:='Кролик (заяц, кот)';
  end;
  Writeln(s)
end.

Тестовое решение:

Введите год (800-3000): 2031
Свинья (кабан)