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

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

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

var m, a: integer;

begin
  a:=1;
  while a>0 do
  begin
    writeln('vvedite chislo : ');
    readln(a);
    m:=1;
      while m<=a do
      begin
      if (m mod 2)=0 then
        write (m, ' ');
      m:=m+1;
      end;
  writeln();
  end;
    writeln('oshibka');
  writeln();
  writeln('<<Konec>>');
  readln();
end.