Задача про восточный календарь.

[Fist_valera]

В восточном календаре года носят названия животных: Крысы, Быка, Тигра, Зайца, Дакона, Змеи, Лошади, Овцы, Обезьяны, Петуха, Собаки, Свиньи. Кроме того, через каждые 2 года меняется цвет в следующем порядке:синий, крсный, жёлтый, белый, чёрный. Таким образом, 1992 год-это год Чёрной Обезьяны, 1993-год Чёрного петуха, 1994-год Синей собаки и т.д.

Напишите пограмму которая переводит заданный год в его название по Восточному календарю. (желательно использовать тип "Перечисление")

[aleks15]

а год любой задается или есть промежуток от какого до какого?

да еще какие года как называются ты знаеш)?

[JinglsOrg]

program fd;
var
am,zoo,color:integer;
begin
readln(am);
write(am,'-год ');
zoo:=am mod 12;
color:=am mod 10;

case color of
0,1:write(' Бел');
2,3:write(' Чёрн');
4,5:write(' Син');
6,7:write(' Красн');
8,9:write(' Жёлт');
end;

if (color=4)or(color=5)then
write('е') else
write('о');

case zoo 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.

[Fist_valera]

Сообщение от aleks15

да еще какие года как называются ты знаеш)?

Промежуток: 1950-2011.
Программа должна сама расчитывать и выводить какой цвет и название!

[Serge_Bliznykov]

Программа должна сама расчитывать и выводить какой цвет и название!

и в чём проблема?!!! Программа для расчёта Вам дана.

Просто убрать чтение года и добавить цикл по году не судьба?!