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

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

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

program  u13z7;
var i,j: integer;

begin
   writeln('vvedite chislo');
   readln(i);
     if (i >=0) then
     begin
       for j:=1 to i do
         if (j mod 2=0) then
       writeln(j);
     end
     else
     writeln('oshibka');
 readln();
end.