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

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

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

var i, m: integer;
  begin
    write('vvedite pologitelnoe chislo: ');
    readln(m);

    while (m >= 0) do
      begin
        for i:=1 to m do
          if ((i mod 2)=0) then
          write(i, ' ');
        writeln();
        write('vvedite chislo: ');
        readln(m);
      end;

    write('ohibka!');
    readln();
  end.

КОНСОЛЬ:

vvedite pologitelnoe chislo: 20
2 4 6 8 10 12 14 16 18 20
vvedite chislo: -2
ohibka!