Сделать программы на Паскале. ПОМОГИТЕ! ПОЖАЛУЙСТА!
1. Найти наибольшее из двух чисел, используя конструкцию case.
2. Используя, оператор case, решить задачу. С клавиатуры ввести год рождения, а выдается в год кого вы родились. (Год лошади, свиньи и т.д.)

Задание №1var  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.Задание №2var  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.