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

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

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

var i, c :integer;
begin
  i := 0;
  while (i >= 0) do
    begin
      writeln('vvedi celoe chislo');
      readln(i);
      if(i >= 0) then
        begin
         for c := 1 to (i) do
          if((c mod 2)=0) then
            write(c, ' ')
        end
      else
        writeln('ERROORR');
    end;
end.