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

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

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

var a ,b : integer;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(a);
  if (a > 0) then
    for b := 1 to a do
     begin
       if not odd(b)then
         write(b,' ');
       writeln();
     end
  else
       writeln('oshibka');
  readln();
end.