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

Задача 20 Урок 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,b,n,m:integer;
begin
  a:=1;
  writeln('vvedite cislo');
  readln(n);
  m:=1;
  b:=m;
  repeat
    write(a,' ');
    m-=1;
    a+=1;
    if (m=0) then
      begin
        writeln();
        m:=b+1;
        b:=m;
      end;
  until (a>n);
  readln();
end.   

Вывод консоли:

vvedite cislo
30
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

Два цикла:

var a,b,m,i:integer;
begin
  b:=1;
  m:=1;
  writeln('vvedite chislo');
  readln(a);
  while (b<=a) do
  begin
    for i:=1 to m do
    begin
      if (b<=a) then
        write(b,' ');
        b+=1;
    end;
      begin
        writeln();
        m:=m+1;
      end;
  end;
  readln();
end.     

Вывод консоли:

vvedite chislo
30
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