(Turbo Pascal) 1). Даны три числа. Вывести на экран то из

1)
var
    a1, a2, a3, max: integer;
begin
    write ('Введите три числа: ');
    readln (a1, a2, a3);
    if a1 gt;= a2 then
        max := a1
    else
        max := a2;
    if a3 gt; 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.