uses crt;
type
a=(krisa,bik,tigr,zayac,drakon,zmeya,loshad,ovca,obezyana,petuh,sobaka,svinya);
b=(sinyi,krasnyi,jeltyi,belyi,chernyi);
var
d:a;
c:b;
g,n,k:integer;
begin
writeln('vvedite god');
readln(g);
n:=((g - 1992) mod 12);
case n of
0:writeln('obezyana');
1:writeln('petuh');
2:writeln('sobaka');
3:writeln('svinya');
4:writeln('krisa');
5:writeln('bik');
6:writeln('tigr');
7:writeln('zayac');
8:writeln('drakon');
9:writeln('zmeya');
10:writeln('loshad');
11:writeln('ovca');
end;
k:=((g - 1992) mod 5);
case k of
0,1:writeln('chernyi');
2,3:writeln('sinyi');
4,5:writeln('krasnyi');
6,7:writeln('jeltyi');
8,9:writeln('belyi');
end;
end.

uses crt;
type
a=set of 1..200;
b=set of 1..200;
var
g:integer;
q:char;
krisa:a=[00,12,24,36,48,60,72,84,96];
bik:a=[01,13,25,37,49,61,73,85,97];
tigr:a=[02,14,26,38,50,62,74,86,98];
zayac:a=[03,15,27,39,51,63,75,87,99];
drakon:a=[04,16,28,40,52,64,76,88];
zmeya:a=[05,17,29,41,53,65,77,89];
loshad:a=[06,18,30,42,54,66,78,90];
ovca:a=[07,19,31,43,55,67,79,91];
obezyana:a=[08,20,32,44,56,68,80,92];
petuh:a=[09,21,33,45,57,69,81,93];
sobaka:a=[10,22,34,46,58,70,82,94]; 
svinya:a=[11,23,35,47,59,71,83,95];
sinyi:b=[04,05,14,15,24,25,34,35,44,45,54,55,64,65,74,75,84,85,94,95];
krasnyi:b=[06,07,16,17,26,27,36,37,46,47,56,57,66,67,76,77,86,87,96,97];
jeltyi:b=[08,09,18,19,28,29,38,39,48,49,58,59,68,69,78,79,88,89,98,99];
belyi:b=[00,01,10,11,20,21,30,31,40,41,50,51,60,61,70,71,80,81,90,91];
chernyi:b=[02,03,12,13,22,23,32,33,42,43,52,53,62,63,72,73,82,83,92,93];
label p;
begin
p:writeln;
writeln('Введите год');
readln(g);
if (g in krisa) and (g in sinyi) then
writeln('Год синей крысы') else
if (g in krisa) and (g in krasnyi) then
writeln ('Год красной крысы') else
if (g in krisa) and (g in jeltyi) then
writeln('Год желтой крысы') else
if (g in krisa) and (g in belyi) then
writeln('Год белой крысы') else
if (g in krisa) and (g in chernyi) then
writeln('Год черной крысы') else
if (g in bik) and (g in sinyi) then
writeln('Год синего быка') else
if (g in bik) and (g in krasnyi) then
writeln ('Год красного быка') else
if (g in bik) and (g in jeltyi) then
writeln('Год желтого быка') else
if (g in bik) and (g in belyi) then
writeln('Год белого быка') else
if (g in bik) and (g in chernyi) then
writeln('Год черного быка') else
if (g in tigr) and (g in sinyi) then
writeln('Год синего тигра') else
if (g in tigr) and (g in krasnyi) then
writeln ('Год красного тигра') else
if (g in tigr) and (g in jeltyi) then
writeln('Год желтого тигра') else
if (g in tigr) and (g in belyi) then
writeln('Год белого тигра') else
if (g in tigr) and (g in chernyi) then
writeln('Год черного тигра') else
if (g in zayac) and (g in sinyi) then
writeln('Год синего зайца') else
if (g in zayac) and (g in krasnyi) then
writeln ('Год красного зайца') else
if (g in zayac) and (g in jeltyi) then
writeln('Год желтого зайца') else
if (g in zayac) and (g in belyi) then
writeln('Год белого зайца') else
if (g in zayac) and (g in chernyi) then
writeln('Год черного зайца') else
if (g in drakon) and (g in sinyi) then
writeln('Год синего дракона') else
if (g in drakon) and (g in krasnyi) then
writeln ('Год красного дракона') else
if (g in drakon) and (g in jeltyi) then
writeln('Год желтого дракона') else
if (g in drakon) and (g in belyi) then
writeln('Год белого дракона') else
if (g in drakon) and (g in chernyi) then
writeln('Год черного дракона') else
if (g in zmeya) and (g in sinyi) then
writeln('Год синей змеи') else
if (g in zmeya) and (g in krasnyi) then
writeln ('Год красной змеи') else
if (g in zmeya) and (g in jeltyi) then
writeln('Год желтой змеи') else
if (g in zmeya) and (g in belyi) then
writeln('Год белой змеи') else
if (g in zmeya) and (g in chernyi) then
writeln('Год черной змеи') else
if (g in loshad) and (g in sinyi) then
writeln('Год синей лошади') else
if (g in loshad) and (g in krasnyi) then
writeln ('Год красной лошади') else
if (g in loshad) and (g in jeltyi) then
writeln('Год желтой лоашди') else
if (g in loshad) and (g in belyi) then
writeln('Год белой лошади') else
if (g in loshad) and (g in chernyi) then
writeln('Год черной лошади') else
if (g in ovca) and (g in sinyi) then
writeln('Год синей овцы') else
if (g in ovca) and (g in krasnyi) then
writeln ('Год красной овцы') else
if (g in ovca) and (g in jeltyi) then
writeln('Год желтой овцы') else
if (g in ovca) and (g in belyi) then
writeln('Год белой овцы') else
if (g in ovca) and (g in chernyi) then
writeln('Год черной овцы') else
if (g in obezyana) and (g in sinyi) then
writeln('Год синей обезьяны') else
if (g in obezyana) and (g in krasnyi) then
writeln ('Год красной обезьяны') else
if (g in obezyana) and (g in jeltyi) then
writeln('Год желтой обезьяны') else
if (g in obezyana) and (g in belyi) then
writeln('Год белой обезьяны') else
if (g in obezyana) and (g in chernyi) then
writeln('Год черной обезьяны') else
if (g in petuh) and (g in sinyi) then
writeln('Год синего петуха') else
if (g in petuh) and (g in krasnyi) then
writeln ('Год красного петуха') else
if (g in petuh) and (g in jeltyi) then
writeln('Год желтого петуха') else
if (g in petuh) and (g in belyi) then
writeln('Год белого петуха') else
if (g in petuh) and (g in chernyi) then
writeln('Год черного петуха') else
if (g in sobaka) and (g in sinyi) then
writeln('Год синей собаки') else
if (g in sobaka) and (g in krasnyi) then
writeln ('Год красной собаки') else
if (g in sobaka) and (g in jeltyi) then
writeln('Год желтой собаки') else
if (g in sobaka) and (g in belyi) then
writeln('Год белой собаки') else
if (g in sobaka) and (g in chernyi) then
writeln('Год черной собаки') else
if (g in svinya) and (g in sinyi) then
writeln('Год синей свиньи') else
if (g in svinya) and (g in krasnyi) then
writeln ('Год красной свиньи') else
if (g in svinya) and (g in jeltyi) then
writeln('Год желтой свиньи') else
if (g in svinya) and (g in belyi) then
writeln('Год белой свиньи') else
if (g in svinya) and (g in chernyi) then
writeln('Год черной свиньи') else
writeln('Элемент не входит в массив, попробуйте еще раз');
begin
writeln('Хотите попробовать еще раз?');
read(q);
if (q = 'y') then
goto p else
end;
end.