(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);
readln
end.

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.