Задача 5 урок 14

Задача 5 урок 14

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

var e,i,n,el: integer;

procedure Elka(el:integer);
begin
  readln(el);
  for i:=1 to el do
begin
    write(i,' ');
    e+=1;
    if e=n then
    begin
        writeln();
        e:=0;
        n+=1;
    end;
end;
end;

begin
  e:=0; //количество элементов в строке на данный момент
  i:=1; //чтобы начать цикл
  n:=1; //нужное количество элементов в строке
  Elka(el);
  readln();
end.