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

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

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

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