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

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

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента.

var i,a,p,m: integer;
begin
i:=6;
readln(a);
readln(m);
if (a>0) and (a>=8) then
    while (i<a) do
    begin
        for p:=1 to m do
        begin
            i:=i+2;
            if (i<=a) then write(i,' ');
        end;
        if (i<a) then write('3',' ');
    end;
end.