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

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

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

3
4 6
7 9
12 14
17

var
  a,b, n, z, z1:integer;
begin
  writeln('vvedite chislo: ');
  readln(n);
  writeln();
  b:=1; // счет строк
  a:=1;  // выводящееся число
  z1:=1; // счетчик
  z:=z1;
  while (a<=n) do
  begin
    if z1=0 then
    begin
      writeln();
      z1:=z+1;
      z:=z1;
      b:=b+1;
    end
    else
    begin
      if ((b mod 2)=1)and((a mod 2)=0) then
        begin
          write(a, ' ');
          z1:=z1-1;
        end
      else
        if ((b mod 2)=0)and((a mod 2)=1) then
          begin
            write(a, ' ');
            z1:=z1-1;
          end;
      a:=a+1;
    end;
  end;
  writeln();
  writeln('konec');
  readln();
end.