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

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

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

program  u13z20;
var l,s,j,i,a,m,n: integer;

begin
  writeln('vvedite chislo n');
  readln(n);
  writeln('vvedite chislo m');
  readln(m);

  a:=1;
  j:=m;
  s:=m;
  m:=1;

  while (a <=n) do
  begin
    for i:=1 to m do
    begin
      if (a <=n) then
        write(a,' ');
        a:=a + 1;
    end;
    if  (m<j)then
    begin
      m:=m+1;
    end
    else
     if (m>1) then
     begin
       j:=1;
       m:=m-1;
     end
     else
     begin
       j:=s;
       m:=m+1;
     end;
  writeln();
  end;
  readln();

end.  

Ответ в консоль:

vvedite chislo n
19
vvedite chislo m
3
1
2 3
4 5 6
7 8
9
10 11
12 13 14
15 16
17
18 19