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.