(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.