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

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

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

program project1;
var numb, i:integer;

begin
  i:=0;
  write('vvedite chislo: '); readln(numb);
  if(numb<0)then
    writeln('ERROR!')
  else
    while(i<numb)do
      begin
        write(i,' ');
        i:=i+2;
      end;
  readln();
end.