(Turbo Pascal)
1). Даны три числа. Вывести на экран то из них, которое больше.
2). вывести название, есяцс по его порядковвому номеру.
срочно решите задачки плиз сама не понимаю как их решать... даю 40 баллов

1)var    a1, a2, a3, max: integer;begin    write ('Введите три числа: ');    readln (a1, a2, a3);    if a1 >= a2 then        max := a1    else        max := a2;    if a3 > max then        max := a3;    writeln ('Максимальное из них: ', max);readlnend.2)var  n: integer; begin  repeat    writeln('Введите номер месяца [1..12]');    readln(n);  until n in [1..12];  case n of     1: writeln('Январь');    2: writeln('Февраль');    3: writeln('Март');    4: writeln('Апрель');    5: writeln('Май');    6: writeln('Июнь');    7: writeln('Июль');    8: writeln('Август');    9: writeln('Сентябрь');    10: writeln('Октябрь');    11: writeln('Ноябрь');    12: writeln('Декабрь');  end;end.