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

Question

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

Answer 1

Var
x,y:integer;
a:array [1..12] of string;
begin
a[1]:=cock;
..
a[12]:=monkey;
read(x);
y:=(abs(2016-x) )mod 12;
write(a[y]);
end.

Вроде должно работать. Проверить не могу - сижу с телефона