Как написать в Паскале задачу, чтобы писать любой год и выдавалось кто ты по китайскому гороскопу

Надо задать, каким был, например 1900 год. Или какой-то иной меньше которого не зададут. Этот год условно считать нулеввым. Вводим любой год, находим разность между ним и 1900 г (или тем, который выбран) и находится остаток от деления на 12. Например, вводим1990, тогда1990-1900=90.90mod 12=6. И по этому значению берём 6-ой по кольцу год от того, которым был 1990. Через оператор выбора из многих (case)