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

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

var n,i,j:integer;
begin
  writeln('Vvedite celoe chislo: ');
  readln(n);
  i:=6;
  if((n>0)and(n>=8))then
    while (i<n) do
      begin
      for j:=1 to 2 do
        begin
          i:=i+2;
          if (i<=n) then write(i,' ');
        end;
      if (i<n) then write(3,' ');
      end
  else
  writeln('Oshibka! Chislo ne sootvetstvuet usloviam!');

end. 

Консоль:

Vvedite celoe chislo: 
20

8 10 3 12 14 3 16 18 3 20