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

год по восточному календарю. Выполнить надо желательно с оператором 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

Свинья (кабан)