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

начало отсчета лет - 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.

192 символа

Объяснение: