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

 

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