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

Вложенные циклы

{13.1 — 16 Пользователь вводит целое положительное число N, если оно не соответствует критериям
(то есть не является положительным), выведете сообщение об ошибке,
в противном случае выведите на экран все числа последовательности, не большие N,
сформированной следующим образом 8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2,
затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.}

var n,f,i: integer;
begin
  f:=8;
  writeln('write num >= 0');
  readln(n);
  if (n<0) then
    writeln('err: your num < 0')
  else
    begin
      repeat
        for i:=1 to 2 do
          begin
            if (f >= n) then
              break;
            write(f,' ');
            f:=f+2;
          end;
        write(3,' ');
      until(f >= n);
    end;
readln();
end.

//write num >= 0
//31
//8 10 3 12 14 3 16 18 3 20 22 3 24 26 3 28 30 3