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

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

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
123456--максимум три числа7891011121314--снова три числа1516171819.....

program U131Z21;
var n,m,l,i,k: integer;
    f:boolean;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  writeln('vvedite m');
  readln(m);
  l:=0;
  k:=1;
  f:=true;
  for i:=1 to n do
  begin
    write(i,' ');
    l:=l+1;
    if (l=k) then
    begin
      writeln();
      l:=0;
    if (f) then
      k:=k+1
    else
      k:=k-1;
    end;
    if (k=m) then
      f:=false;
    if (k=1) then
      f:=true;
  end;
  readln();
end.