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

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

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

3
4 6
7 9 
12 14
15 17

program U131Z20;
var n,m,l,i: integer;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  m:=1;
  l:=0;
  for i:=1 to n do
  begin
    if ((m mod 2)=0) then
    begin
      if ((i mod 2)<>0) then
        write(i,' ');
    end
    else
    begin
      if ((i mod 2)=0) then
        write(i,' ');
    end;
    l:=l+1;
    if (l=m) then
    begin
      writeln();
      m:=m+1;
      l:=0;
    end;
  end;
  readln();
end.