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

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

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

program  u131z7;
var i, n: integer;

begin

 i:=1;

  repeat
  begin
   writeln('vvedite chislo');
   readln(i);
     for n:= 1 to i do
        if (n mod 2 = 0) then
          write(n,' ');
  end;
  until (i < 0);
  writeln ('oshibka');
  readln();

end.