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

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

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

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