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

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