Сделать программы на паскале. ! 1. найти наибольшее из двух чисел, используя конструкцию case. 2. используя, оператор case, решить . с клавиатуры ввести год рождения, а выдается в год кого вы родились. (год лошади, свиньи и т.д.)

Задание №1
var
  a, b, n: integer;

begin
  readln(a, b);
  n := a - b;
  case n of
    1..65536: writeln('a>b');
    0: writeln('a=b');
  else writeln( 'a<b');
  end;
end.

Задание №2

var  a: integer;
begin
    writeln('Введите год рождения'); readln(a);
    write('Вы родились в ');
    case a 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.