Восточный календарь - Turbo Pascal (39771)

Формулировка задачи:

Точно помню, что эту прогу делали ещё в школе вместе с классом, но это было давно. Восточный календарь принят 60-летним циклом состоящий из 5-ти 12-летних подциклов. Подциклы обозначаются цветами: Зелёный-красный-жёлтый-белый-чёрный. Внутри каждого подцикла годы носили названия животных: Крыса-бык-тигр-кролик-дракон-змея-лошадь-баран-обезъяна-петух-собака-свинья. Написать программу, которая запрашивала номер года и печатала его название по восточному календарю. Для проверки: 2012 - Чёрный Дракон 1966 - Красная Лошадь 1984 - Зелёная Крыса При этом известны следующие формулы: c=((year+6) mod10+2)( div 2 k=(year+8) mod 12+1 c-цвет k-номер животного Сказали, что можно сделать через CASE

Решение задачи: «Восточный календарь»

textual
                            Листинг программы 
                        

                            Program AHB;
 uses crt;
 var
 year,k,a:integer;
 begin
 clrscr;
 Writeln('Введите год: ГГГГ');
 readln (year);
 k:=((((year+6) mod 10)+2)div 2);
 a:=((year+8) mod 12+1);
 Write (year);
 case k of
 1: Write (' Зелёный ');
 2: Write (' Красный ');
 3: Write (' Жёлтый ');
 4: Write (' Белый ');
 5: Write (' Чёрный ');
 end;
 Case a of
 1: Write (' Крыса ');
 2: Write (' Бык ');
 3: Write (' Тигр ');
 4: Write (' Кролик ');
 5: Write (' Дракон ');
 6: Write (' Змея ');
 7: Write (' Лошадь ');
 8: Write (' Баран ');
 9: Write (' Обезьяна ');
 10: Write (' Петух ');
 11: Write (' Собака ');
 12: Write (' Свинья ');
 end;
 Writeln;
 readkey;
 end.
                        