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

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

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

var i, j, N, M: integer;
begin
   writeln('Введите целое чило N:');
   readln(N);
   writeln('Введите целое чило M:');
   readln(M);
   for j := 1 to M do
    begin
     i := 1;
     while (i <= N div 2) and (N > 0) do
      begin
       write(i, ' ');
       i += 1;
      end;
     writeln();
     for i := 1 to N do
      write(i, ' ');
     writeln();
    end;
   readln();
end.