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

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

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

8 10 3 12 14 3 16 18 3 20

-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводится тройка и ещё пара увеличенных на 2 чисел и т.д. пока не дойдем до N.

var
  i, n, z:integer;
begin
  i:=8;
  z:=2;
  writeln('vvedite polozhitelnoe chislo >=8: ');
  readln(n);
  if (n>=8)then
  begin
    while (i<=n) do
    begin
      if z=0 then
      begin
        write(3, ' ');
        z:=2;
      end
      else
      begin
        write(i, ' ');
        i:=i+2;
        z:=z-1;
      end;
    end;
  end
  else
  writeln('oshibka');
  writeln();
  writeln('konec');
  readln();
end.