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

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

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:

3
4 6
7 9
12 14
17

program zadacha19;
var i, j, n, m: integer;
begin
  writeln('Vvedite chislo N:');
  readln(n);
  m:=1;
  i:=1;
  repeat
    j:=1;
    while (j<=m) and (i<=n) do
    begin
      if (m mod 2 = 0) and (i mod 2 = 0) then
        write(i, ' ');
      if (m mod 2 = 1) and (i mod 2 = 1) then
        write(i, ' ');
      i:=i+1;
      j:=j+1;
    end;
    writeln();
    m:=m+1;
  until i>=n;
  readln();
end.