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

Вложенные циклы

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

var n,i,symbol,lenght: integer;
begin
  lenght:=1;
  writeln('wanna see tree? write num!');
  readln(n);
  for i:=1 to n do
    begin
      if (lenght mod 2 <> 0) then //нечётная строка
        begin
          if (i mod 2 = 0) then   //чётное число
            begin
              write(i, ' ');
              symbol:=symbol+1;
            end
        end
      else                         //чётная строка
        begin
          if (i mod 2 <> 0) then   //нечётное число
            begin
              write(i, ' ');
              symbol:=symbol+1;
            end
        end ;
      if (symbol=lenght) then
        begin
          writeln();
          lenght:=lenght+1;
          symbol:=0;
        end;
    end;
  writeln('...');
  readln();
end.

//wanna see tree? write num!
//19
//2
//3 5
//6 8 10
//11 13 15 17
//18 ...