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

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

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

program lesson13_7;
var
    a, i : integer;
begin
    repeat
        writeln('enter number a');
        readln(a);
        if a <= 0 then
            writeln('error')
        else
            for i := 1 to a do
                if i mod 2 = 0 then
                    write(i, ' ');
        writeln();
	until a <= 0;
    readln();
end.