dragon, snake, horse, sheep, monkey).

Формат входных данных:

Входной файл содержит натуральное число

Ответы:

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.

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