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

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

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

var i,a,b,n:integer;
begin
readln(n);
a:=1;
b:=1;
while (b<=n) do
begin
    for i:=1 to a do
    begin
        if (b>n) then break
        else if (a mod 2=0) and (b mod 2<>0) then
            write(b,' ')
        else if (a mod 2<>0) and (b mod 2=0) then 
            write(b,' ');
        b:=b+1;
    end;
    writeln();
    a:=a+1;
end;
end.