Program Rick_and_Morty;
Var i: integer;
begin
write('Ваш год: ');
readln(i);
case i mod 12 of
0: writeln('Год обезьяны');
1: writeln('Год петуха');
2: writeln('Год собаки');
3: writeln('Год кабана');
4: writeln('Год крысы');
5: writeln('Год быка');
6: writeln('Год тигра');
7: writeln('Год кролика');
8: writeln('Год дракона');
9: writeln('Год змеи');
10: writeln('Год лошади');
11: writeln('Год овцы');
end;
end.
