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

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

Задать свой вопрос
1 ответ
Var
x,y:integer;
a:array [1..12] of string;
begin
a[1]:=cock;
..
a[12]:=monkey;
read(x);
y:=(абс(2016-x) )mod 12;
write(a[y]);
end.

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт