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

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

var i,a:integer;
begin
  a:=1;
  writeln('Vvedite celoe chislo: ');
  readln(a);
  if(a<=0)then writeln('Oshibka!')
  else
    for i:=1 to a do
      if(i mod 2 =0)then write (i,' ');
end.  

Консоль:

Vvedite celoe chislo: 
6

2 4 6