Решил попробовать написать программу на паскале (лучше бы я не пытался -- язык для мазохистов).
program gor;
var year, year1: Integer;
color : Integer;
beast : Integer;
begin
Write('Year>');
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.
Допускаю, что этих "кошек просто надо уметь готовить", но мне уж как-то лучше говядина со свининой.
# vim: set fileencoding=utf-8:
year = int(input('Year>'))
year1 = ((year - 1984) % 60 + 60) % 60
(beast, color) = (year1 % 12, year1 / 12 % 5)
s=str(year) + ' - год '
if beast in (2, 3, 4): c = ('зелёного', 'красного', 'жёлтого', 'белого', 'чёрного')
else : c = ('зелёной', 'красной', 'жёлтой', 'белой', 'чёрной')
s += c[color] + ' '
s += ('крысы', 'коровы', 'тигра', 'зайца', 'дракона', 'змеи', 'лошади', 'овцы', 'обезьяны', 'курицы', 'собаки', 'свиньи')[beast]
print s