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

Program years;
var year:integer; i:0..11; k:0..;
Begin
     read(year); Write(year); i:=(year-3) mod 12;
     k:=93010-year) mod 60 div 12;
     write('-это год');
Case k of
     0:write('зелен');
     1:write('крас');
     2:write('желт');
     3:write('бел');
     4:write('черн');
end;
Case i of   {окончание прилагательного}
        0,1,2,6,7,8,9,10,11:write('ой');
        3,4,5:write('ого');
end;
Case i of
        1:write(' крысы');
        2:write(' коровы');
        3:write(' тигра');
        4:write(' зайца');
        5:write(' дракона');
        6:write(' змеи');
        7:write(' лошади');
        8:write(' овцы');
        9:write(' обезьяны');
        10:write(' курицы');
        11:write(' собаки');
        0:write(' свиньи');
end;
end.