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

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

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

var i, j, M, N, k: integer;
  begin
    readln(N);
    i:=1;
    j:=1;
    M:=1;
    k:=1;
    for i:=1 to N do
      begin
        if ((M mod 2)=0) and not((i mod 2)=0) then
          write(i,' ');
        if not((M mod 2)=0) and ((i mod 2)=0) then
          write(i,' ');
          if (j=M) then
            begin
              writeln();
                j:=0;
                M:=M+1;
              end;
        j:=j+1;
        if (k=1) then
          k:=2
        else
          k:=1;
      end;
    readln();
  end. 

var i, j, M, N: integer;
  begin
    readln(N);
    i:=1;
    j:=1;
    M:=1;
    repeat
      for j:=1 to M do
        begin
          if ((M mod 2)=0) and not((i mod 2)=0) then
            write(i,' ');
          if not((M mod 2)=0) and ((i mod 2)=0) then
            write(i,' ');
          if (j=M) then
            writeln();
          i:=i+1;
          if (i>N) then
            break;
        end;
      M:=M+1
    until i>N;
    readln();
  end.