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

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

var n,i,j,m:integer;
begin
  writeln('Vvedite celoe chislo: ');
  readln(n);
  j:=1;
  m:=1;
  while m<n do
  begin
    for i:=1 to j do
      begin
        write(m,' ');
        if(m<n) then m:=m+1;
      end;
    j:=j+1;
    writeln();
  end;


end.     

Консоль:

Vvedite celoe chislo: 
20

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