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

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

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

3
4 6
7 9
12 14
17

var
    n, a, i, j: integer;
begin
    writeln('vvedite chislo');
    readln(n);
    i := 1;
    a := 1;
    while i <= n do
    begin
        for j := 1 to a do
        begin
            if i > n then
                break;
            if odd(a) and not odd(i) then // нечетная строка, четное число
                write(i, ' ')
            else if not odd(a) and odd(i) then //четная строка, не четное число
                write(i, ' ');
            inc(i) ;
        end;
        writeln();
        inc(a);
    end;
    readln();
end.