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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.

Вариант с двумя циклами

var
  a, i, j, count: integer;
begin
  a:= 18;//число введенной пользователем
  j:= 0;//количество символов в строке
  count:= 1;// счетчик
  i:= 1;
  while (i <= a) do
     begin
       while (j < count) do
          begin
            if (i <= a) then
               begin
                 write(i, ' ');
                 i:= i + 1;
                 j:= j + 1;
               end;
          end;
       writeln();
       j:= 0;
       count:= count + 1;
     end;
  readln();
end. 

Вариант с одним циклом

var
  a, i, j, count: integer;
begin
  a:= 28;//число введенной пользователем
  j:= 0;//количество символов в строке
  count:= 1;// счетчик
  i:= 1;
  while (i <= a) do
     begin
       write(i, ' ');
       i:= i + 1;
       j:= j + 1;
       if (j = count) then
         begin
           writeln();
           count:= count + 1;
           j:= 0;
         end;
     end;
  readln();
end.