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

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

Пользователь передает целое положительное число 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, n, z, z1:integer;
begin
  writeln('vvedite chislo: ');
  readln(n);
  writeln();
  a:=1;
  z1:=1;
  z:=z1;
  while (a<=n) do
  begin
    if z1=0 then
    begin
      writeln();
      z1:=z+1;
      z:=z1;
    end
    else
    begin
      write(a, ' ');
      a:=a+1;
      z1:=z1-1;
    end;
  end;
  writeln();
  writeln('konec');
  readln();
end.