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

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

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

var a,i: integer;
begin
readln(a);
if a<0 then write('ошибка')
else for i:=1 to a do
        if (i mod 2=0) then
        write(i,' ');
writeln();
end.