По введенному номеру года выдать какой это год по восточному календарю. Плиз…

Начало отсчета лет — 1984 год. Надо написать программу (pascalABC). Вводите год, нужный вам, отнимаете от него 1984 и находите остаток от деления на 12. Последовательность животных в 12-летнем цикле — крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака, свинья. То есть если при делении на 12 остаток равен 0, значит введенный год — год крысы, если 1 — год коровы и т.д. программа: var a,b,c: longint; beginwrite ('Введите год: '); readln (a); c: =a-1984; b: =c mod 12; case b of0: writeln (a,' — год крысы'); 1: writeln (a,' — год коровы'); 2: writeln (a,' — год тигра'); 3: writeln (a,' — год зайца'); 4: writeln (a,' — год дракона'); 5: writeln (a,' — год змеи'); 6: writeln (a,' — год лошади'); 7: writeln (a,' — год овцы'); 8: writeln (a,' — год обезьяны'); 9: writeln (a,' — год курицы'); 10: writeln (a,' — год собаки'); 11: writeln (a,' — год свиньи'); end; end.