создайте программу "гороскоп" с оператором 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;  readlnend.