Урок 13.1 Задание 7

Задание 7 Урок 13.1

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

var a,i: integer;
begin
  a:=0; 
  begin
    while a > -1 do
    a:=a+1;
    writeln ('введи число a'); 
    readln (a);
    begin
      if a>-1 then
        begin
          for i:=1 to a do
             if i mod 2 = 0 then 
               write (i,' ');
               i:=i+1;
        end
      else 
        write('oshibka');
    end;
  end;
end.

Konsol

введи число a
18
2 4 6 8 10 12 14 16 18