Решение задачи №7 из главы 13.1; цикл for ; if (i mod 2)=0 then

Решение задачи №7 из главы 13.1

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

var m, i: integer;
begin
  writeln('vvedite celoe chislo');
  readln(m); //вводим число
  if (m <= 0)  then
      writeln('ochibka')
  else
     for i := 1 to m  do
         if (i mod 2)=0 then
           write(i, ' ');
  writeln();
  writeln('zaversheno!');
  readln();
end.