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

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

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

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