Урок 14 задача 5

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

:
Урок 14 задача 5

program Project1;
procedure halftree(var i1: integer; L1, n1: integer);
var j:integer;
begin
    for j:= 1 to L1 do
    begin
        if n1 >= i1 then
        begin
           Write(i1,' ');
           i1:=i1+1;
        end;
    end;
end;
var
   L,i,n: integer;
begin
    writeln('write n: ');
    readln(n);
    L:=1;
    i:=1;
    while(n >= i) do
    begin
        halftree(L,i,n);
        writeln();
        L:=L+1;
   end;
    readln();
end.