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

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810 два числа3101214 три числа316182022 четыре числа3....3....и т.д.
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.

program  u13z17;
var i,a,m,n: integer;

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

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

  end;
  a:=8;
  while (a <=n) do
  begin

    for i:=1 to m do
     begin
      if (a <=n)then
        write(a,' ');
      a:=a + 2;
     end;
    m:=m+1;
     if (a<=n)then
      write('3',' ');

  end;

  readln();

end.