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

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

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

program zadacha7;
var i, j: integer;
begin
  i:=1;
  while i > 0 do
    begin
      writeln('Vvedite chislo');
      readln(i);
      if i > 0 then
        begin
          j:=1;
          while j <= i do
            begin
              if j mod 2 = 0 then
                write(j,' ');
              j:=j+1;
            end;
          writeln();
        end
      else
        writeln('Vvedeno otricatelnoe chislo');
    end;
  readln();
end.