Даю 50 поинтов, срочно, нужно сделать задание в Pascal.

Program Rick_and_Morty;  
Var  i: integer;

begin
write('Ваш год: ');  
readln(i);

  case i 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;
end.

1. люблю тебя