Задание 7 Урок 13.1

Задание 7 Урок 13.1

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

var i,i1 : integer;

begin
  i := 1;
  while (i > 0) do
  begin
    write('Введите число и нажмите ENTER:  ');
    readln(i);
    if (i > 0) then
      for i1 := 1 to i do
        if ((i mod 2) = 0) then
          write(i1, ' ');
      	  writeln();
  end;
    write('ОШИБКА! нажмите ENTER!');
    readln();
end.