Создайте программу "гороскоп" с оператором CASE, введя с клавиатуры год и по году определите какой это год по гороскопу Обезьяны, Петуха, Кролика и т.д., зная что цикл длится 12 лет.

var  a: integer; begin     writeln('Введите год рождения'); readln(a);     case a mod 12 of         0: writeln('Вы родились в год Обезьяны.');         1: writeln('Вы родились в год Петуха.');         2: writeln('Вы родились в год Собаки.');         3: writeln('Вы родились в год Свиньи.');         4: writeln('Вы родились в год Крысы.');         5: writeln('Вы родились в год Быка.');         6: writeln('Вы родились в год Тигра.');         7: writeln('Вы родились в год Кролика.');         8: writeln('Вы родились в год Дракона.');         9: writeln('Вы родились в год Змеи.');         10: writeln('Вы родились в год Лошади.');         11: writeln('Вы родились в год Козы.');   end;   readln end.