Решение задачи 7 из главы 13.1

Решение задачи 7 из главы 13.1

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

program Project7;
var i, a: integer;
begin
  writeln('Vvedite zeloe polozhitelnoe chetnoe chislo:');
  readln(i);
  while (i >= 1) do
       begin
            if ((i mod 2) = 0) then
               for i:=1 to i do
                   if ((i mod 2) = 0) then
                     writeln(i, ' ');
                     i:=i+1;
                     writeln('Vvedite zeloe polozhitelnoe chetnoe chislo:');
                     readln(i);
       end;
  writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.