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

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

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

var i, j: integer;
  begin
    readln(i);
    while i>=1 do
      begin
        for j:=1 to i do
          if ((j mod 2)=0) then
            writeln(j);
        readln(i);
      end;
    writeln('Error');
    readln();
  end.