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

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

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

var i,a: integer;
begin
  writeln('vvedite 4islo > 0 - ');
  readln(i);
    if (i > 0) then
       for a := 1 to i do
          if ((a mod 2)=0) then
             write(a, ' ')
    else if (i < 0) then
       writeln('oshibka!');
    readln();
end.