Составьте таблицу в екселе. в старояпонском календаре был принят шестидесятилетний цикл, состоящий из пяти двенадцилетних подциклов. подциклы обозначались названиями цветов: зеленый, красный, желтый, белый и черный. внутри каждого подцикла года носили название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обязьяны, курицы, собаки и свиньи. например, 1924 год - год начала очередного цикла- назывался годом зеленой крысы. создайте таблицу, в которой по заданому году(большем 1924) определяется: животное и цвет. используйте функции отбр и остат

Вывод цвета - точно также, как вывод животного, только не по модулю 12, а по модулю 5.

const c:array[0..4]of string={'зеленый', 'красный', 'желтый','белый','черный'};
z:array[0..11]of string={'крысы','коровы','тигра','зайца','дракона','змеи','лошади',
'овцы','обезьяны','курицы','собаки','свиньи'};
var n:integer;
begin readln(n); n:=n-1984; writeln(c[n mod 5],' ',z[n mod 12]); readln end.

Вот! Будь проще.. .
А если хочешь, чтобы календарь работал почти всю эру, то вместо 1984 напиши 4.