Дан год. Вывести на экран на экран название животного, символизирующего этот год по восточному календарю (cock, dog, pig, rat, bull, tiger, rabbit, dragon, snake, horse, sheep, monkey).
Формат входных данных:
Входной файл содержит натуральное число 
Формат выходных данных:
В выходной файл выведите ответ на поставленную задачу.

varx,y:integer;a:array [1..12] of string;begina[1]:=cock;..a[12]:=monkey;read(x);y:=(abs(2016-x) )mod 12;write(a[y]);end.Вроде должно работать. Проверить не могу - сижу с телефона