Дан год. Вывести на экран название животного, символизирующего заданный год по восточному календарю. Выполнить надо желательно с оператором 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 Свинья (кабан)