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

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

var n,i,j,m:integer;
begin
  writeln('Vvedite celoe chislo: ');
  readln(n);
  j:=1;
  m:=1;
  while m<n do
  begin
    for i:=1 to j do
      begin
        if ((j mod 2=1)and (m mod 2=1)) then write(m,' ');
        if((j mod 2=0) and (m mod 2=0))then write(m,' ');
        if(m<n) then m:=m+1;
      end;
    j:=j+1;
    writeln();
  end;


end.   

Консоль:

Vvedite celoe chislo: 
15

1 
2 
5 
8 10 
11 13 15