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

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

var m,n,i,j:integer;
begin
  m:=4;
  n:=9;
  for i:=1 to m do
  begin
    if(i mod 2<>0) then n:=n div 2
    else n:=9;
    for j:=1 to n do
      write(j,' ');
    writeln();
  end;
end. 

Консоль:

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