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

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

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

var a,b:integer;
begin
  repeat
    writeln ('vvedite chislo');
    readln (a);
     b:=1;
     while b<=a do
       begin
         if (b mod 2)=0 then
         write(b,' ');
         b:=b+1;
       end;
    writeln();  
    until a<=-1;
  writeln('Error');
  readln();
end.
 

Вывод консоли:

vvedite chislo
20
2 4 6 8 10 12 14 16 18 20 vvedite chislo
-1
Error