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

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

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведите сообщение об ошибке. Также пользователь вводит второе число M, которое отвечает за длину возрастающего фрагмента.

var a,b,m,i:integer;
    p:boolean;
begin
  p:=true;
  b:=8;
  writeln('vvedite chislo otv za dlinnu');
  readln(m);
  writeln('vvedite chislo bolshe 8');
  readln(a);
  while (b<=a) do
  begin
    for i:=1 to m do
    begin
      if (b<=a) then
        write(b,' ')
      else
        p:=false;
      b:=b+2;
    end;
    if (p) then
      write(3,' ');
  end;
  readln();
end. 

Вывод консоли:

vvedite chislo otv za dlinnu
5
vvedite chislo bolshe 8
40
8 10 12 14 16 3 18 20 22 24 26 3 28 30 32 34 36 3 38 40