Решение 2 Задача 19 Урок 13

Урок 13.1

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

3
4 6
7 9 
12 14
15 17

var n, m, c, d : integer;
    e : boolean;

begin
  c := 1; 
  writeln('Vvedite celoe polozhitelnoe chislo');
  readln(n);
  m := 0; 
  d := 0;
  e := true;
  if n > 0 then
  begin
    for c := 1 to n do
    begin
      if (((c mod 2) = 0) and (e)) or (((c mod 2) <> 0) and (not e)) then
        write(c, ' ');
        d := d + 1;
        if d > m then
        begin
          writeln();
          m := m + 1;
          d := 0;
          e := not e;
        end;
    end; 
  end
  else
    writeln ('Error!');
end.

КОНСОЛЬ

Vvedite celoe polozhitelnoe chislo
23
3 
4 6 
7 9 
12 14 
17 19 21 
22