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

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

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

var i,a,p: integer;
begin
i:=6;
readln(a);
if (a>0) and (a>=8) then
    while (i<a) do
    begin
        for p:=1 to 2 do
        begin
            i:=i+2;
            if (i<=a) then write(i,' ');
        end;
        if (i<a) then write('3',' ');
    end;
end.