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

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

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

1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1

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

program Project1;
var a,b,c,n,d: integer;
begin
  writeln('Введите число');
  readln(n);
  a:=0;
  c:=n;
  b:=1;
  d:=0;
  while (a<=n) do
  begin
    a:=1;
      if (a <= n) then
        write(a,' ');
      if (a = c) then
      begin
        writeln();
        d:=d+1;
        b:=d+1;
        c:=c+b;
      end;
  end;

  readln();
end

.