Урок 13.1. Задача 19.

Урок 13.1. Задача 19.

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

3
4 6
7 9
12 14
17

var N, a, b, i : integer;

begin
  a := 0;
  b := 1;
  write('Enter an integer : ');
  readln(N);
  for i := 1 to N do
  begin
    a := a + 1;
    if (b mod 2 <> 0) and (i mod 2 = 0) then
      write(i, ' ')
    else
      if (b mod 2 = 0) and (i mod 2 <> 0) then
        write(i, ' ');

    if (a = b) then
    begin
      a := 0;
      b := b + 1;
      writeln();
    end;
  end;
  readln();
end. 

3
4 6
7 9
12 14
17