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

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

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

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

program lesson13_16;
var
    a, i: integer;
begin
    repeat
        writeln('enter even number');
        readln(a);
        if a > 0 then
        begin
            i := 8;
            while i <= a do
            begin
			    write(i, ' ');
                i := i + 2;
                if (i mod 4 = 0) and (i <= a) then
                    write('3 ');
			end;
		end
		else
            writeln('error');
        writeln();
	until a <= 0;
    readln();
end.