задача №17 урок 13.1

http://fkn.ktu10.com/?q=node/8697

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

var m, i, n, a: integer;
begin
writeln ('введи число ');
readln (m);
writeln ('введи длину фрагмента-ограничитель');
readln (a);
if m<0 then writeln ('error');
i:=8;
while i<=m do begin
n:=n+1;
if (n>a) then begin write (3,' ');
n:=0;
end
else begin write (i,' ');
i:=i+2;
end;
end;
end.