программа с Case по Теме 6

Program Kalendar;
var a: integer;
begin

  Writeln ('Введите год');
  Readln (a);
  if (a > 0) then begin
  a := a mod 12;
  Case a 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
  else writeln('Год введен неверно');
end.