Решение задачи №19 из главы 13.1

Решение задачи №19 из главы 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

Вывод консоли
Vvedite chislo
17

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

Вывод консоли
Vvedite chislo
50

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 32 33 34 35 36
37 38 39 40 41 42 43 44 45
46 47 48 49 50

var
i,n,j,k:integer;
begin
k:=1; // счетчик для переноса строк
i:=1; // начальное значение счетчика
j:=0;// начальное значение для внутреннего счетчика
writeln('Vvedite chislo');
readln(n);

    while i<=n do
       begin
       j:=j+1; // запускаем внутренний счетчик
       if(j>=k) then
         begin
           writeln();
           j:=0; //обнуляем внутренний счетчик
           k:=k+1;
         end
       else
          begin
             write(i, ' ');
             i:=i+1; // изменяем значение счетчика
          end
        end;

readln();
end.