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

1

Ответы и объяснения

2013-11-27T18:25:42+00:00
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.

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