Question

Помогите пожалуйста)))

Answer 1

program month;

var
  num : integer;
  i, b : integer;

begin
  b := 9999999999;
 
  writeln('Введи число от 1 до 12:');
  readln(num);
 
  for i := 0 to b do
    begin
      if num <= 0 then
      begin
        writeln('Нужно вводить числа от 1 до 12:');
        readln(num);
      end
      else if num > 12 then
      begin
        writeln('Нужно вводить числа от 1 до 12:');
        readln(num);
      end;
    end;
 
  case num 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.