Задание 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

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.

1 Способ:

var i,n,i1,a : integer;
begin
write('Vvedite chislo: ');
readln(n);
i:=1;
i1:=1;
a:=0;
 while(i1<=n) do begin
  repeat
   write(i1, ' ');
   i1:=i1+1;
   a:=a+1;
  until(i<=a) or (i1>n);
  a:=0;
  writeln();
  i:=i+1;
 end;
readln();
end. 

2 Способ:

var i,n,i1,a : integer;
begin
write('Vvedite chislo: ');
readln(n);
i:=1;
i1:=0;
a:=0;
 while(i<=n) do begin
  if(i1=a) then begin
    writeln(i, ' ');
    i1:=i1+1;
    a:=0;
  end
  else begin
    write(i, ' ');
    a:=a+1;
  end;
  i:=i+1;
 end;
readln();
end.