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

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

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

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

program U13_1Z5;
var a, i: integer;
begin
  writeln('vvedite celoe polozhitelnoe chislo');
  readln(a);
  if (a<=0) then
    writeln('oshibka')
  else
    for i:= 1 to a do
      if ((i mod 2)=0) then
        write(i, ' ');
      i:=i+1;
  readln();
end.