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