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

люблю тебя

Program Rick_and_Morty;  Var  i: integer;beginwrite('Ваш год: ');   readln(i);  case i mod 12 of0:  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.