В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых названиями цвета: зеленый, красный, желтый, белый и черный. В каждом подцикле годы носят названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. По номеру года определить его название, если 1984 год — начало цикла: «год зеленой крысы» — Pascal(Паскаль)

Program Case19;

Const
  Year: array [1 .. 12] of string[10] = (('крысы'), ('коровы'), ('тигра'),
    ('зайца'), ('дракона'), ('змеи'), ('лошади'), ('овцы'), ('обезьяны'),
    ('курицы'), ('собаки'), ('свиньи'));
  Color: array [0 .. 3] of string[10] = (('зеленый'), ('красный'), ('желтый'),
    ('черный'));

var
  i, god: integer;

begin
  write('Введите год >= 1984 : ');
  readln(god);
  for i := 1 to 12 do
  begin
    write(1984 + i - 1, ' - ', Year[i], ' - ');
    writeLn(Color[((1984 + i - 1) mod 4)]);
  end;
  writeLn('-------------------');
  Write(god, ' это год: ', Year[(god - 1984 + 1) mod 12], ' ',
    Color[(god mod 4)]);

end.