Составить
программу, определяющую животное, соответствующее году по китайскому гороскопу

Program god_Japan;
var y, y1: Integer;
color : Integer;
beast : Integer;
begin
Write(Введите год);
ReadLn(year);
year1 := ((year - 1984) mod 60 + 60) mod 60;
beast := year1 mod  12;
color := (year1 div 12) mod 5; 
Write(year, - год );
if beast in [2, 3, 4] then 
case color of 
0: Write(зеленого); 
1: Write(красного); 
2: Write(желтого); 
3: Write(белого); 
4: Write(черного); 
end
else 
case color of   
0: Write(зеленой); 
1: Write(красной); 
2: Write(желтой);
3: Write(белой); 
4: Write(черной); 
end; 
Write( );
case beast of 
0: Write(Крысы);
1: Write(Коровы);
2: Write(Тигра); 
3: Write(Зайца); 
4: Write(Дракона); 
5: Write(Змеи); 
6: Write(Лошади);
7: Write(Овцы); 
8: Write(Обезьяны); 
9: Write(Курицы); 
10: Write(Собаки); 
11: Write(Свиньи); 
end; 
WriteLn();
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.