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

http://fkn.ktu10.com/?q=node/8697

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

program task7_lesson13_1;
var n, i : integer;
begin
  writeln('Enter number more then 0 :');
  readln(n);
  if n <= 0 then
     writeln('ERROR')
  else
        for i := 1 to n do
           if ((i mod 2) = 0) then
           write(i, ' ');

  readln();
end.