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

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

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

program zadacha10;
var i, j, m, n: integer;
begin
  writeln('Vvedite kollichestvo strok:');
  readln(m);
  writeln('Vvedite kollichestvo simvolov:');
  readln(n);
  i:=1;
  while i <= m do
    begin
      j:=1;
      if i mod 2 = 0 then
        begin
          while j <= n do
            begin
              write(j,' ');
              j:=j+1;
            end;
        end
      else
        while j <= n/2 do
          begin
            write(j,' ');
            j:=j+1;
          end;
      writeln();
      i:=i+1;
    end;
  readln();
end.