Задача 11 Урок 13.1

Задача 11 Урок 13.1:

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

var i, j,m,n,z: integer;
begin
  i := 1;
  writeln ('vvedite ogranichitel') ;
  readln (m);
  writeln ('vvedite chislo'); 
  readln (n);
  z:=n;
  repeat
    if((i mod 2)=1) then
      n:=n div 2
    else
      n:=z;
    j := 1;
    while (j<=n) do 
      begin
          write(j, ' ');
          j:=j+1; 
      end;
    writeln(); 
    i:=i+1; 
  until (i > m);  
  readln();
end.

Вывод консоли:

vvedite ogranichitel
10
vvedite chislo
9
1 2 3 4
1 2 3 4 5 6 7 8 9
1 2 3 4
1 2 3 4 5 6 7 8 9
1 2 3 4
1 2 3 4 5 6 7 8 9
1 2 3 4
1 2 3 4 5 6 7 8 9
1 2 3 4
1 2 3 4 5 6 7 8 9