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

Вложенные циклы

{13.1 — 7 Модифицируйте предыдущую задачу так, чтобы в случае,
если число удовлетворяет требованиям (целое, положительное),
то на экран выводились четные числа.}

var a,i: integer;
begin
  repeat
    writeln('write num >= 0');
    readln(a);
    if (a>=0) then
      begin
        for i:=1 to a do
          if (i mod 2 = 0) then
            write(i, ' ')
      end
    else
      writeln('error: num < 0');
    writeln();
  until (a<0) ;
  writeln('over');
  readln();
end.

//write num >= 0
//42
//2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42
//write num >= 0
//-3
//error: num < 0
//
//over