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

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

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

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

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

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