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

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

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

var a, i: integer;
begin
   writeln('Введите целое число:');
   readln(a);
   while a >= 1 do
    begin
     i := 2;
     while (i <= a) do
      begin
       write(i, ' ');
       i += 2;
      end;
     writeln('Введите целое число:');
     readln(a);
    end;
   writeln('Ошибка');
   readln();
end.