Задание 16 Урок 13.1

Задание 16 Урок 13.1

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

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2,
затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

var i,i1,n: integer;
label m1;
begin
  i :=8;
  m1 :
  write('Введите целое положительное число N и нажмите ENTER: ');
  readln(n);
  if (n <= 0) then
  begin
    writeln('ОШИБКА!!! число отрицательное');
    goto m1;
  end
  else
    repeat
      for i1 := 1 to 3 do
        if (i1 <> 3) then
        begin
          write(i, ' ');
          i := i+2;
        end
        else
          write(3, ' ');
    until (i > n);
  readln();
end.