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

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Свинья (кабан)