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

Вложенные циклы

{13.1 — 17 Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M,
которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 3 16 18 20 22 3 ...и т.д.}

var n,m,f,i: integer;
begin
  f:=8;
  writeln('write num >= 0');
  readln(n);
  writeln('write num for ascending fragment length');
  readln(m);
  if (n<0) then
    writeln('err: your num < 0')
  else
    begin
      repeat
        for i:=1 to m do
          begin
            if (f>=n) then
              break;
            write(f,' ');
            f:=f+2;
          end;
        write(3,' ');
      until(f >= n);
    end;
readln();
end.

//write num >= 0
//42
//write num for ascending fragment length
//4
//8 10 12 14 3 16 18 20 22 3 24 26 28 30 3 32 34 36 38 3 40 3