{* Задача 177 *}

Unit ZADACH177;
Interface
Implementation
Begin
 writeln('В старо японском календаре был принят 60-летний цикл. Годы имели следующие цвета: Зелёный, Красный, Жёлтый, Белый, Чёрный. Годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год зелёной крысы - был началом очередного цикла. Написать программу, которая вводит номер некоторого года нашей эры и напечатает его название по старо японскому календарю.');
End.

Program greenrat;

Uses zadach177.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a : integer;
Begin
  clrscr; {* Очищаем экран *}
  write('vvedite god ');
  read(a);
  Case (((a + 8) Div 12) Mod 5) Of    1 : write('green ');
    2 : write('red ');
  3 : write('yellow ');
  4 : write('white ');
  0 : write('black ');
End;
Case (a Mod 12) Of    4 : write('krisi');
  5 : write('korovi');
6 : write('tigra');
7 : write('zajca');
8 : write('drakona');
9 : write('zmei');
10 : write('loshadi');
11 : write('ovci');
0 : write('obezjani');
1 : write('kurici');
2 : write('sobaki');
3 : write('svin`i');
End;

End....