Задача 21 урок 13.1

Задача 21 урок 13.1

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

var n,c,i,j,f,m:integer;
begin
i:=1;//чтобы начать цикл
c:=0;//количество элементов в строке на данный момент
j:=1;//количество элементов в строке, которое нам нужно
f:=1;//чтобы переключать необходимое количество элементов в строке
m:=2;//начальная длина волны
readln(n);
while (i<=n) do
begin
    write(i,' ');
    i+=1; 
    c+=1;
    if (c=j) then
    begin
        writeln();
        j:=j+f;
        c:=0;
    end;
    if (j=m) then
    begin
        f:=f-2;
        m+=1;
    end;
    if (j<=1) then
        f:=1;
end;
end.