Задание 10 Урок 13.1

Задание 10 Урок 13.1

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

var i,i1,i2,n,m,n1 : integer;
    label m1;
begin
  m1:
  write('Введите N и нажмите ENTER: ');
  readln(n);

  write('Введите M и нажмите ENTER: ');
  readln(m);
  for i2 := 1 to m do//цикл 1-го порядка отвечает за повторение двустрочия
    begin
      for i1 := 1 to 2 do// цикл 2-го порядка отвечает за двойное повторение
       begin
         if ((i1 mod 2) = 0) then// значения для чётной строки
          for i := 1 to n do// цикл 3-го порядка отвечает за одну строку
            write(i, ' ')
         else// значения нечётной строки
           begin
             n1 := (n div 2);
             if (n1 < 0) then // проверяем на знак
               begin
                 writeln('Ошибка!!! Вводите только положительные значения!');
                 goto m1;// возвращаемся к метке m1
               end
             else
               for i := 1 to n1 do// цикл 3-го порядка отвечает за одну строку
                 write(i, ' ')
           end;
            writeln();// переходим на следующую строку
       end;
      writeln();// добавляем строку для разделения итераций цикла 1-го порядка
    end;

  write('Программа завершена, нажмите ENTER!');
  readln();
end.